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ABSTRACT 


The  Oklahoma  State  University  Themis  Project  has  developed  an 
algorithm  for  identifying  cloud  to  ground  strokes  compared  to  cloud  to 
cloud  strokes.  That  identification  is  based  upon  the  relative  energies 
of  the  strokes  in  vertical  polarization  contrasted  to  horizontal  polari¬ 
zation  and  at  the  frequencies  of  10  KHz,  50  KHz,  150  KHz  and  250  KHz. 

The  project  has  developed  an  on-board  aircraft  analog  data  reduc¬ 
tion  package  which  gives  real-time  readout  of  the  sferic  rate  history 
at  any  one  selected  frequency.  Close  correlation  of  the  sferic  rate 
with  vertical  cloud  development  remains  the  rule  and  indicates  that  the 
sferics  are  an  intimate  part  of  the  vertical  wind  profile. 

A  CPS-9  weather  radar  facility  has  been  added  to  the  project  and 
was  operated  during  the  1970  Oklahoma  storm  season.  The  first  suitable 
photographs  of  cloud  to  ground  lightning  photographs  were  obtained  late 
in  the  spring  at  Stillwater. 
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1.  INTRODUCTION 


A.  HISTORY  OF  PROGRAM 

The  College  of  Engineering,  Oklahoma  State  University,  submitted 
Proposal  ER  67-T-21  entitled,  "A  Center  for  the  Description  of  Environ¬ 
mental  Conditions--Weather  Phenomena  (Themis  No.  129)"  to  the  Department 
of  Defense  on  May  1,  1967,  in  response  to  the  brochure.  Project  Themis, 
dated  November,  1966.  Authorization  to  implement  the  program,  with 
limited  funds,  was  given  in  the  form  of  a  letter  contract  The  effec¬ 
tive  date  of  the  letter  contract  was  October  1,  1967  The  actual  con¬ 
tract  which  authorized  the  initial  three  years  of  the  program  was 
signed  by  the  contracting  office  on  January  16,  1968. 

On  October  30,  1969  the  contract  between  Oklahoma  State  University 
and  the  Department  of  Defense  was  amended  to  authorize  full  funds  for 
three  years  -  2/3  funds  for  one  year  and  1/3  funds  for  one  year  of  the 
contract  covering  the  period  October  5,  1969  through  October  4,  1972 
Word  was  received  during  late  summer  of  1970  that  additional  funding  of 
this  project  would  not  be  available  Therefore,  the  objectives  and 
schedules  of  the  project  have  not  been  materially  changed  from  those 
already  set  forth 

8  OBJECTIVES  Of  PROGRAM 

The  proposals  submitted  have  been  based  on  the  following  objectives: 

1  Immediate  objective,  the  determination  of  the  electromagnetic 
characteristics  of  severe  weather. 

2.  Intermediate  objective:  the  prediction  of  operational ly  re¬ 
strictive  and  severe  weather. 

3  long-term  objective:  the  modification  of  operationally  re¬ 
strictive  and  severe  weather. 
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C,  RATIONALE 


The  recognition  and  definition  of  electromagnetic  signature  associ¬ 
ated  with  specific  severe  weather  occurrences  and  the  development  of 
instrumentation  to  detect,  measure,  and  analyze  the  electromagnetic 
energy  present  will  provide  another  technique  for  use  in  short  range 
weather  forecasting.  This  new  method,  along  with  existing  meteoro¬ 
logical  techniques,  will  be  of  benefit  to  the  Department  of  Defense  in 
tactical  operations  of  all  the  services. 

The  modification  of  weather,  if  possible,  will  be  of  benefit  to 
long-range  military  planning.  The  ability  to  either  predict  or  cause 
a  rainstorm,  for  example  in  a  particular  area  will  provide  a  tremen¬ 
dous  advantage  in  tactical  operations  planning. 

D.  IMPLEMENTATION  PLANS 

The  program  was  initiated  with  a  three-phased  effort; 

1.  The  development  and  use  of  instrumentation  to  measure  the 
electromagnetic  signature  of  certain  weather  phenomena 
(clear  air  turbulance,  thunderstorms,  tornadoes)  in  airborne 
and  ground-based  laooratories.  (The  correlation  of  electro¬ 
magnetic  data  to  existing  meteorological  information  will  be 
made  on  identifiable  weather  phenomena.) 

2.  The  investigation  of  pattern  recognition  in  the  total  data 
acquisition  program  (sferics,  severe  weather,  existing  meteoro¬ 
logical  information).  (The  mathematical  modeling  and  infor¬ 
mation  theory  application  to  both  the  discrete  and  continuous 
odta  will  attempt  to  provide  keys  for  the  third  phase.) 
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3,  The  data  analysis  and  application  to  identify  indicators  for 
probability  of  specific  phenomena,  to  determine  possible  trigger 
mechanisms  which  induce  the  phenomena,  and  to  define  techniques 
for  possible  mco'ificatici-abatement,  diversion  or  intensifica¬ 
tion  of  the  phenomena. 

4.  The  development  of  one  or  more  simple  airborne  instrument 
packages  which  can  be  put  in  any  aircraft  for  short  term  measure¬ 
ment  of  the  severity  of  weather  immediately  ahead. 
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II.  DATA  GATHERING. 


A.  CHRONOLOGY  OF 
18  April  1970 


23  April  1970 


26  April  1970 


10  May  1970 


11  May  1970 

13  May  1970 


THE  1970  SEVERE  STORM  SEASON. 

—  A  squall  line  associated  with  a  cold  front 
formed  southeast  of  Stillwater  and  spawned  a 
tornado  East  of  Oklahoma  City.  The  CDEC  air¬ 
craft  became  airborne  following  the  tornado 
event. 

--  A  stationary  front  lay  east-west  across  Oklahoma. 
The  storm  cells  sampled  were  southeast  of 
Stillwater  near  Shawnee,  Oklahoma.  Hail  was  re¬ 
ported  during  the  sample  period. 

--  A  dewpoint  discontinuity  or  so  called  "dry  line" 
existed  west  and  north  of  Stillwater,  Photos 
were  taken  from  the  radar  tower  but  were  of  poor 
quality. 

--  A  wave  formed  in  the  Oklahoma  panhandle  along  a 
stationary  front.  Thunderstorms  formed  along  a 
squall  line  associated  with  the  low.  Hail  and 
possible  funnel  clouds  were  reported  near  Wichita, 
Kansas  during  the  sample  period. 

--  Mild  activity  west  of  Stillwater,  near  Canton 
Reservoir,  continued  to  be  associated  with  the 
low  center  now  in  Western  Kansas  and  Nebraska. 

—  Agair  some  activity  is  associated  with  the  front 
in  Kansas  and  a  dewpoint  discontinuity  west  of 
Stillwater.  Tre  activity  moved  south  of 
Stillwater  into  the  Tulsa  area,  but  only  moderate 
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14  May  1970 


29  May  1970 


9  June  1970 


10  June  1970 


12  June  1970 


thunderstorms  resulted. 

--  The  front  which  was  stationary  in  Kansas  moved 
southward  as  a  cold  front.  Flying  was  difficult 
ahead  of  this  system  and  was  terminated  as  the 
front  passed  over  Stillwater. 

—  A  front  lay  stationary  and  to  the  northwest  of 
Stillwater,  Meanwhile,  a  low  was  induced  in 
southwestern  Oklahoma  causing  storms  near 
Oklahoma  City  and  Shawnee.  A  tornado  was  sighted 
near  Shawnee  before  the  CDEC  aircraft  began 
sampl ing. 

—  a  small  group  of  cells  formed  directly  north  of 
Stillwater.  Photos  were  taken  from  the  radar 
tower  at  Stillwater  and  excellent  film  data  was 
obtained. 

—  A  cold  front  moved  rapidly  eastward  and  passed 

Stillwater  in  the  evening.  The  CDEC  aircraft 

4b 

landed  shortly  after  taxeoff  due  to  the  Spending 
weather  at  the  airport. 

—  A  dewpoint  discontinuity  lay  on  tc  of  Stillwater. 
Although  at  18:30  COT  the  sky  was  cloudless,  at 
19:00  there  was  a  45,000'  Cb.  about  ten  miles 
northwest  of  Stillwater.  Later  in  the  storm 

hail  was  reported  at  Ponca  City.  However,  this 
was  a  case  where  few  sferics  were  apparent. 

Three  strokes  in  all  were  visible  from  the  ground 
and  the  sampling  aircraft  reported  little  sferic 
activity. 
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In  cooperation  with  the  Institute  of  Atmospheric  Sciences  at  the 
South  Dakota  School  of  Mining  &  Technology  at  Rapid  City,  South  Dakota. 

6  July  1970  --  Test  case  016:43  M.D.T.  with  Ag  I  (silver  iodide) 

seeding.  Low  to  occasionally  moderate  sferics  - 
considered  a  mild  storm. 

7  July  70  —  A  cold  front  passed  over  the  area  but  almost  no 

activity  resulted. 

9  July  70  --  Test  case  called  @12:05  M.D.T.  activity  was 

sudden  and  sporadic.  Considered  a  mild  to  moder¬ 
ate  storm  day  with  no  seeding  done. 

10  July  70  —  Test  case  called  @13:30  M.D.T.  moderate  cumulus 

activity  -  sferics  light.  No  seeding  done. 

13  July  70  --  No  test  cases  called  due  to  lack  of  activity. 

Tn  cooperation  with  the  weather  modification  Branch  of  the  Atmos¬ 
pheric  Physics  Laboratory  at  White  Sands  Missile  Range,  New  Mexico: 

23  July  70  --  Hughes  and  Overton  on  Organ  Peak  with  WSMR  per¬ 

sonnel.  Light  cumulus  activity  over  peak  area 
in  afternoon.  Some  activity  at  night.  Photos 
were  taken  but  were  of  poor  quality. 

24  July  70  --  Pybus  and  Byrne  on  Organ  Peak.  Early  evening 

cell  with  moderate  sferics.  Observations  from 
Organ  Peak  were  poor. 

27  July  70  —  Observers  on  the  ground.  Large  area  rainstorm 

northeast  of  Las  Cruces.  Moderate  sferics  with 
called  shots. 

28  July  70  --  Several  large  cells  near  Truth  or  Consequences, 
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New  Mexico  and  north  of  Deming.  Called  observa¬ 
tions  from  the  airport.  These  cells  showed 
synchronous  sferic  activity. 

29  July  70  —  One  large  cell  on  the  Mexican  border  at  Columbus, 

New  Mexico  provided  a  splendid  display  of  various 
kinds  of  sferics.  Considered  the  best  set  of 
called  data  yet  this  season. 

In  cooperation  with  the  Joint  Hail  Research  Project  (JHRP)  of  the 
National  Center  for  Atmospheric  Research  (NCAR),  the  Colorado  State 
University  { CSU) ,  and  the  University  of  Wyoming  (WU)  all  operating  over 
the  Pawnee  Grasslands  at  Greeley,  Colorado  and  Raymer,  Colorado 

4  August  70  —  The  remnants  of  a  stationary  front  lay  east  of 

the  Greeley  area.  Cells  on  this  day  were  small, 
sferics  were  mild. 

5  August  70  --  The  old  frontal  line  was  near  Cheyenne  and  cells 

along  the  line  grew  moderately  strong  to  pro¬ 
duce  hail.  Sferics  were  moderate 

6  August  70  --  Same  line  as  yesterday's.  Cells  formed  early 

to  the  north  and  moved  southward.  Hail  reported 
on  several  occasions. 

8  August  70  —  Moderate  cell  near  Julesburg,  Colorado  produced 

hail.  A  later  storm  directly  over  Greeley  was 
not  sampled. 


7 


B.  DATA  GATHERING  -  GENERAL  SYNOPTIC  RESUME. 

April  1970  began  with  a  sharp  transition  from  the  previous  zonal 
flow  to  a  break  up  into  meridional  flow  over  Oklahoma.  A  weak  trough 
over  the  Eastern  Rockies  (at  700  mb.)  brought  below  normal  temperatures 
and  light  precipitation  to  the  western  half  of  Oklahoma  and  above  normal 
temperatures  and  moderate  precipitation  to  the  eastern  half  of  the  state. 

The  trend  toward  meridional  flow  continued  with  weakening  of  the 
flow  pattern  at  700  mb.  for  both  May  and  June.  Temperatures  in  Oklahoma 
were  near  normal  in  May  but  went  below  normal  in  June.  Precipitation 
remained  moderate  in  May  becoming  light  in  June. 

The  storm  season  was  considered  to  be  a  light  to  moderate  one  with 
only  a  few  severe  storms.  However,  those  few  storms  spawned  several 
destructive  tornadoes. 

July  in  South  Dakota  was  a  light  storm  season.  The  zonal  flow  at 
700  mb.  was  very  weak  and  caused  only  light  precipitation  with  normal 
temperatures . 

Later  that  month  and  into  early  August  a  high  centered  in  the  south¬ 
west  dominated  the  flow  at  White  Sands  and  at  Colorado.  Thunderstorms 
were  frequent  at  those  locations,  but  only  moderately  severe.  No  tor¬ 
nadoes  were  observed  at  South  Dakota,  White  Sands  or  Colorado. 
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III.  DATA  ANALYSIS. 


A,  PATTERN  RECOGNITION, 

1.  Introduction: 

The  progress  made  in  the  past  year  by  the  Pattern  Recognition 
group  is  reported  in  this  section.  Major  efforts  in  this  area  have 
been  directed  towards  developing  a  mathematical  model  for  lightning 
discharges,  developing  a  procedure  for  classifying  lightning  dis¬ 
charges,  developing  a  statistical  model  for  describing  thunderstorm 
noise  and  theoretical  investigation  of  the  problem  of  learning  to 
recognize  patterns  with  an  imperfect  teacher.  These  efforts  have 
resulted  in  three  doctoral  dissertations  and  four  technical  papers 
that  are  being  submitted  for  publication  in  research  journals: 

Ph.D.  Dissertations: 

1)  "Learning  to  Recognize  Patterns  With  an  Imperfect  Teacher", 
by  K.  Shanmugam,  completed  in  May,  1970 

2)  'A  Study  of  the  Second-Order  Statistical  Properties  of 
Thunderstorm  Noise",  by  Richard  L.  Johnson,  completed  in 
September,  1970. 

3)  "A  Lightning  Model  for  Pattern  Recognition",  by  Guy  0.  Marney, 
completed  in  November,  1970. 

Technical  Papers: 

1)  "Learning  With  an  Imperfect  Teacher",  by  K  Shanmugam  and 

A.  M.  Breipohl,  Proceedings  of  the  1970  IEEE  SSC  Conference, 
pp  32-38,  Pittsburg,  October  14-16,  1970 

2)  "An  Error  Correcting  Scheme  for  Learning  With  an  Imperfect 
Teacher",  by  K.  Shanmugam  and  A.  M.  Breipohl,  accepted  for 
publication  by  the  IEEE  transactions  on  Systems  Science  and 
Cybernetics. 
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3)  "Discriminating  Between  Cloud  to  Ground  and  Cloud  to  Cloud 
Lightning  Discharges,  A  Pattern  Recognition  Approach",  by 
K.  Shanmugam  and  A.  M.  Breipohl,  accepted  for  publication 
in  the  Journal  of  Geophysical  Research. 

4)  "A  Study  of  the  Second  Order  Statistical  Properties  of 
Thunder  Storm  Noise",  by  R.  L.  Johnson,  being  submitted  to 
the  Journal  of  Geophysical  Research. 

A  brief  summary  of  the  above  listed  works  will  be  presented  in 
the  following  sections.  For  a  detailed  description,  the  Interested 
reader  is  referred  to  Appendix  A  of  this  report,  which  contains 
abstracts  of  the  listed  dissertations  and  copies  of  the  listed 
papers . 

2.  Modeling  of  Lightning  Discharges: 

The  objective  of  this  phase  of  research  is  to  develop  a  Fortran 
program  to  implement  a  mathematical  model  of  a  lightning  discharge 
of  a  given  geometry  on  the  digital  computer.  The  general  geometry 
of  the  discharge  model,  illustrated  in  Figure  1,  consists  of 
straight  segments  connecting  points  A  and  B,  with  branching  serpents 
extending  from  B.  At  this  time,  TOL,  a  time-varying  current  IL(t) 
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Figure  1.  General  Geometry  of  Discharge  Model 
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Is  allowed  to  progress  down  the  main  channel  from  B  to  A  with  a 
velocity  VL(t)  which  may  be  of  the  form  VL(t)  *  VL0EXP(-GLt).  At 
a  later  time  TOR  a  return  current  IR(t)  Is  allowed  to  move  up  the 
channel  from  A  to  B  with  a  velocity  VR(t).  Still  later  In  time, 

TOS,  a  third  current  IS (t)  moves  from  B  towards  the  branch  tips 
with  a  velocity  VS{t).  The  programs  calculate  the  electromagnetic 
fields  at  any  specified  observation  point  by  approximating  each 
straight  segment  by  a  prescribed  number  of  oscillating  electric 
dipoles. 

(be  program  calculates  the  Fourier  transform  of  the  fields  re¬ 
sulting  from  the  above  model.  The  other,  which  is  essentially  an 
extension  of  the  first  program,  calculates  the  comb-filter  outputs 
that  would  result  from  the  assumed  discharge  model. 

At  present  only  the  return  storke  is  being  investigated  (IL(t)  * 
IS(t)  *  0)  for  comparison  with  models  existing  In  the  literature. 
This  requires  that  the  channel  between  A  and  B  be  represented  by  a 
vertical  segment  and  the  observation  point  be  located  on  the  earth's 
surface  100  Km.  from  the  channel. 

An  accepted  waveform  for  the  return  stroke  current  Is 

IR(t)  •  IQ  (e’at  -e"6t)  ♦ 

A  standard  velocity  expression  Is 
VR(t)  •  VRo  e‘GRt. 

Typical  values  for  a  first  return  stroke  in  a  discharge  are:  1  » 

3  x  104  amp.,  Ij  •  2.5  x  103  amp. ,  a  »  2  x  104  sec.*1 ,  s  •  2  x  105 
sec.’1,  y  •  103  sec.*1,  VRQ  •  8  x  10*  m/sec.,  FR  •  3  x  104  sec.*1. 
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The  maximum  channel  height  allowed  by  the  exoression  VR(t)  Is 

2 

VRq/6R  or  2  ^  Km.  for  the  constants  given.  Using  the  above  current 
and  velocity  expressions,  Figure  2  illustrates  the  magnitude  of 
the  Fourier  transform  of  the  vertical  field  at  100  Km.  on  the  earth's 
surface  for  a  2.66  Km.  vertical  discharge  approximated  by  266  10  m 
dipoles.  This  graph  is  in  agreement  with  that  found  in  the  litera¬ 
ture  (1,  2) 

If  6R  is  set  ''qual  to  zero,  VR(t)  *  8  x  10^m./sec  and  the  length 
of  the  channel  may  be  as  long  as  desired.  At  the  present  time  it  is 
only  noted  that  increasing  the  channel  height  reduces  the  frequency 
at  which  the  main  peak  of  the  Fourier  transform  occurs,  and  this 
shifting  on  the  frequency  axis  may  be  some  indication  of  storm  height 

This  model  is  now  being  extended  to  include  stepped  leaders. 

Also  modeling  of  cloud  to  cloud  discharges  will  be  attempted.  The 
result  of  this  study  will  be  reported  in  a  doctoral  dissertation  ex¬ 
pected  to  be  completed  in  November,  1970. 

3  Classification  of  lightning  Discharges: 

In  this  phase  of  the  project  a  procedure  has  been  developed  for 
classifying  lightning  discharges  into  cloud  to  ground  or  cloud  to 
clo^d  type  based  on  sferic  data.  Using  this  procedure  we  hope  to 
study  t*e  changes  in  the  lightning  structure  of  the  storm  in  rela¬ 
tion  to  the  severe  storm  events  occurring  In  the  storm. 

AH  t*e  data  used  in  this  phase  of  the  project  were  taken  from 
t^e  narrow-band  recordings  of  the  various  comb-filter  outputs  The 
edge  tracks  of  the  narrow-band  recordings  contain  descriptions  about 
U.e  types  ot  discharges  that  were  visible  to  the  observer  in  the 
aircraft  Sections  of  narrow-band  data  containing  identified 
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discharges  were  selected  and  the  data  were  digitized  on  eight 
channels  (lOKHz,  50KHz,  150KHz,  250KHz  horizontal  and  vertical). 

From  these  data,  a  set  of  measurements  representative  of  the  rela¬ 
tive  amounts  of  energy  in  various  comb-filter  frequencies  was  com¬ 
puted.  These  measurements  consist  of  the  normalized  average  value 
of  the  signal  in  each  comb-filter  channel.  The  average  value  of 
the  signal  in  each  horizontal  channel  (X^,  X-^,  ^150H’  ^250H^ 
were  normalized  with  respect  to  the  sum  of  averages  in  the  four 
horizontal  channels  (X*^).  Similarly  the  average  values  in  the  ver¬ 
tical  channels  (^-j qv *  *5QV'  50V *  ^250\P  were  norma^2e(1  re“ 

spect  to  the  sum  of  the  averages  in  the  four  vertical  channels  (Xy). 
In  addition  to  these  measurements,  the  sum  of  averages  in  the  hori¬ 
zontal  channels  (X’y)  normalized  with  respect  to  the  total  sum  were 
a1_o  included  to  provide  some  information  about  the  polarization  of 
the  received  signal.  This  is  the  basic  set  of  measurements  used 
in  this  investigation. 

The  narrow-band  data  corresponding  to  a  total  of  86  discharges 
have  been  processed  for  these  measurements.  The  following  conclu¬ 
sions  are  drawn  from  the  study  of  these  86  sample  patterns: 

1)  Cloud  to  ground  discharges  have  more  energy  in  lOKHz 
Horizontal  than  in  50KHz  Horizontal.  In  comparison,  cloud 
to  cloud  discharges  have  more  energy  in  50  KHz  Horizontal. 

2)  Cloud  to  cloud  discuarges  have  more  horizontally  polarized 
energy  than  cloud  to  ground  discharges. 

3)  There  is  significant  difference  in  the  p  ’3rization  of 
cloud  to  ground  and  cloud  to  cloud  discharges  in  50KHz 
range , 
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Using  these  86  sample  patterns,  a  computer  was  "trained"  to 
classify  discharges  into  cloud  to  ground  or  cloud  to  cloud  types 
using  three  different  methods.  Using  a  "test  set"  of  50  discharges 
of  known  types,  the  performance  of  the  classification  scheme  was 
evaluated.  It  was  found  that  the  procedures  developed  can  be  used 
to  classify  discharges  with  a  reliability  of  up  to  82%. 

For  details  of  this  phase  of  the  project,  the  interested  reader 
is  referred  to  the  paper  "Discriminating  Between  Cloud  to  Ground 
and  Cloud  to  Cloud  Discharges:  A  Pattern  Recognition  Approach", 
enclosed  in  Appendix  A  of  this  report. 

4.  Statistical  Model  for  Thunderstorm  Noise: 

A  study  of  the  second  order  statistical  properties  of  thunder¬ 
storm  noise  was  undertaken  in  this  phase  of  the  project.-  A  charac¬ 
terization  of  thunderstorm  noise  was  obtained  in  terms  of  the  time 
averaged  autocorrelation  and  power  spectral  density  functions.  The 
data  was  first  analyzed  to  determine  whether  or  not  a  stationary 
assumption  would  be  valid.  It  was  found  that  the  sfenc  triggering 
mechanism  can  be  modeled  by  a  Poisson  impulse  process.  Based  on 
this  property  of  wide  sense  stationarity,  estimates  of  the  averaged 
autocorrelation  and  power  spectral  density  functions  were  computed 
from  three  data  segments  of  0.75  second  duration.  Because  of  close 
resemblance  of  the  three  estimates,  the  mean  of  the  time  averaged 
autocorrelation  and  power  spectral  density  estimates  is  believed  to 
be  a  reasonable  description  of  the  process.  Tnis  representation  is 
useful  in  the  design  of  filters  for  the  purpose  of  minimizing 
thunderstorm  noise  inference  in  a  mean  square  sense 

Details  of  this  study  and  the  results  can  be  found  in  the  paper 
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"A  Study  of  the  Second  Order  Statistical  Properties  of  Thunderstorm 
Noise"  included  in  this  ;  eport. 

5.  Theoretical  Research  in  Pattern  Recognition: 

In  problems  involving  learning  to  recognize  patterns,  a  set  of 
sample  patterns  with  known  identifications  is  necessary.  For  example 
in  classifying  lightning  discharges,  data  from  a  set  of  discharges 
along  with  the  type  of  discharge  from  which  these  data  came  from  is 
required  to  train  a  computer. 

Usually  a  sample  identification  scheme  furnishes  the  identifi¬ 
cation  for  the  sample  patterns.  In  many  practical  situations  the 
sample  identification  scheme  may  incorrectly  identify  some  of  the 
training  samp  as.  For  example  in  attempts  to  classify  severe  storm 
patterns  using  electromagnetic  data  from  the  storms,  meteorological 
measurements  such  as  reports  of  hail  will  be  used  as  standards  for 
identifying  the  sample  patterns.  Often  these  measurements  such  as 
reports  of  hail  are  unreliable  and  hence  there  is  a  possibility 
of  some  incorrectly  identified  sample  patterns.  Another  example 
where  there  is  a  possibility  of  incorrect  identification  of  sample 
patterns  occurs  in  attempts  to  classify  lightning  discharges  into 
cloud  to  cloud  or  cloud  to  ground  type  based  on  electromagnetic 
data.  Here  the  sample  identification  is  based  on  visual  sightings 
of  the  discharges.  In  many  occasions,  the  discharge  is  only  partly 
visible  and  hence  the  possibility  of  incorrect  Identification. 

These  examples  give  the  motivation  for  investigating  pattern  recog¬ 
nition  schemes  where  the  teacher,  or  the  sample  identification 
scheme,  is  known  to  be  imperfect. 

This  investigation  resulted  in  the  development  of  a  nonparametric 
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scheme  for  learning  to  recog' ize  patterns  with  an  imperfect  teacher. 
Under  certain  mild  assumptions  on  the  probabilistic  structure  of 
the  patterns,  it  was  found  that  the  proposed  learning  scheme  asymp¬ 
totically  bettered  the  performance  of  its  own  teacher.  Taking  this 
as  a  motivation,  the  proposed  learning  scheme  was  modified  to  correct 
the  errors  made  by  the  imperfect  teacher.  This  error  correction 
scheme  was  found  to  improve  the  performance  of  the  learning  scheme. 
Details  of  this  investigation  can  be  found  in  two  papers: 

1)  "Learning  With  an  Imperfect  Teacher" 

2)  "An  Error  Correcting  Scheme  for  Learning  With  an  Imperfect 
Teacher" 

enclosed  in  Appendix  A  of  this  report. 

The  procedures  developed  for  learning  to  recognize  patterns 
involve  the  estimation  of  probability  density  functions.  One  wav 
of  estimating  these  density  functions  is  in  the  form  of  a  polynomial, 
whose  coefficients  can  be  updated  recursively.  Two  problems  en¬ 
countered  here  are  1)  determining  how  many  terms  should  be  included 
in  the  polynomial  and  2)  how  many  sample  patterns  are  needed  to  get 
a  given  degree  of  accuracy 

Bounds  on  the  sample  size  required  to  insure  a  desired  degree  of 
precision  on  the  estimates  have  been  obtained.  Further  research  is 
needed  to  determine  the  number  <-*  ♦—ms  that  should  be  included  in 
the  polynomial, 

6.  Outline  of  Research  for  the  Coming  Year: 

The  pattern  recognition  scheme  for  classifying  lightning  dis¬ 
charges  has  shown  that  there  is  enough  information  in  the  narrow 
band  data  to  discriminate  between  the  different  types  of  discharges. 
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Attempts  will  be  made  in  the  coming  year  towards  relating  changes  in 
meteorological  conditions  of  the  storms  to  changes  in  the  lightning 
structure  of  the  storm.  The  meteorological  conditions  of  the  storms 
occurring  in  Oklahoma  will  be  processed  from  the  NSSL  radar  data. 
Accordingly  the  electromagnetic  data  from  storms  in  Oklahoma  will 
be  analyzed  first. 

Studies  on  sferic  count  of  narrow  band  data  will  be  continued. 
Also  studies  will  be  made  on  the  changes  in  polarization  of  the 
narrow  band  signal. 
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B.  ANALOG  DATA  REDUCTION. 

A  scheme  was  devised  and  reported  upon  last  year  for  using  analog 
methods  of  data  reduction  to  produce  a  storm's  sferic-rate  history. 

Since  that  time  two  developments  have  taken  place.  First,  the  data  so 
obtained  have  been  correlated  with  the  storm  meteorology  and  two  cases 
of  significance  are  shown  here  below.  Second,  a  portable  unit  was  in¬ 
stalled  in  the  CDEC  sampling  aircraft  and  enabled  sferic-rates  to  be 
observed  during  real-time,  i.e.  during  flight.  The  capability  was 
first  operational  during  August  1970  and  will  be  shown  below. 

1.  Sferic  Rate  History  Correlations. 

Following  are  excerpts  from  a  paper  presented  by  title  at  the 
A.M.S.  Cloud  Physics  Conference  at  Fort  Collins,  Colorado,  on 
27  August  1970  and  also  presented  and  discussed  at  the  14th  Radar 
Meteorology  Conference  in  Tucson,  Arizona  on  19  November  1970. 

Sferic  Rate  Calculations 

To  obtain  sferic  rate  history  for  a  storm,  the  procedure  used 
is  to  choose  one  of  the  six  frequencies  of  a  vertical  antenna  sys¬ 
tem  and  count  the  number  of  lightning  strokes  using  a  running 
weighted  average  technique. 

Analytically,  each  count  is  diminished  in  time  (I.e.  in  weight) 
by  a  factor  (1-1/e)  In  one  minute,  i.e.  time  constant  *  t  *  60  sec 
for  (l-l/e)X  count.  Electrically  this  is  accomplished  in  real  time 
by  providing  an  RC  time  constant  of  one  minute  across  an  integrating 
operational  amplifier. 

Figure  3  shows  the  schematic  o'  the  data  reduction  procedure. 

In  brief,  the  sferic  signal  from  one  trace  of  the  taped  data  is  A) 
amplified  B)  counted  C'  integrated  D)  recorded.  Figure  4  shows 
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a  typical  record  of  such  sferic  rate  histories  at  five  frequencies, 
in  this  case  for  the  storm  at  Rapid  City,  South  Dakota,  on  14  July 
1969  {vertically  polarized). 


ntmiwU  Mui  mini  ihhhum 
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Figure  3.  Schematic  of  Analog  Data  Reduction 
Storm  Cases 

It  is  observed  in  the  data  to  be  presented  here  that  A)  sferic 
rates  increase  with  Increased  vertical  cloud  building  and  B) 
sferic  rates  increase  at  the  time  of  individual  severe  storm  events 
such  as  hail  and  tornadoes.  The  implication  is  that  hail  and  tor¬ 
nado  events  occur  at  the  time  of  rapid  vertical  cloud  development. 

Each  of  two  storm  cases  will  be  examined  by  Itself  In  the  fol¬ 
lowing  paragraphs. 

a,  17  July  1969  -  Rapid  City,  South  Dakota 

Four  sources  of  Information  were  used  to  analyze  this  storm: 

1)  O.S  U.  sferic  records  obtained  by  the  aircraft  sferic  data  sam¬ 
pling  system  described  earlier;  2)  Institute  of  Atmospheric  Sciences 
radar  cloud  profile  records  obtained  with  I.A.S.  radar  facility  at 
Rapid  City;  3)  Recorded  radio  comments  giving  events  and  location 
of  events  such  as  hail  and  tornadoes;  4)  O.S.U.  observer's  flight 


20 


log  of  meteorological  events  during  the  course  of  the  flight. 
Figure  4  presents  the  sferic  rate  history  for  five  discrete 
frequencies  recorded  through  the  vertically  polarized  receiver  and 
comb  filter  system  described  earlier  (Section  I). 


Figure  4.  Sferic  rate  history,  storm  of  17  July  1969, 

Rapid  City,  South  Dakota 

Figure  4  also  presents  the  LA  S.  radar  data  plotted  on  the 
100  KHz  data,  in  the  form  of  maximum  cloud  heights,  for  the  signlfi 
cant  cells  being  sampled.  A  note  of  explanation  is  in  order  con¬ 
cerning  the  location  of  the  significant  cells. 

A  forecast  Is  made  by  the  I.A.S.  Meteorologist  as  to  the  grid 
squares  (of  a  previously  determined  grid  network)  where  severe 
weather  is  likely  to  occur.  Those  forecast  grid  squares  are  then 
sampled  by  the  radar  to  record  existing  conditions.  The  forecasts 


are  made  for  approximately  half  hour  intervals  in  advance. 

Occasionally  it  happens  that  the  major  storm  activity  does  not 
coincide  with  the  grid  squares  being  sampled  by  the  radar.  That  is, 
there  may  be  more  intense  storm  activity  outside  the  grid  squares 
being  sampled  than  in  those  squares.  However,  that  was  not  the  case 
on  this  storm  of  17  July  1969.  Major  storm  activity  was  contained 
within  the  designated  grid  squares. 

At  the  bottom  of  Figure  4  are  noted  the  events  recorded  on 
magnetic  tape  during  the  storm  as  well  as  pertinent  notes  from  the 
observer's  flight  log  as  seen  from  the  16,500  foot  flight  altitude. 

It  is  quite  clear  from  the  comparison  of  the  data  of  Figure  4 
that  cloud  building  in  the  early  part  of  the  storm,  i.e.  about 
21:30  GMT  Wes  not  accompanied  by  much  sferlc  activity.  Visual  ob¬ 
servations  show  that  that  part  of  the  storm  did  not  develop  to  any 
great  extent.  Notice,  however,  that  hail  and  a  vortex  (not  reach¬ 
ing  ground)  were  generated  by  that  time  (21:35  GMT). 

In  contrast,  note  the  increased  sferlc  rate  at  22:40  GMT  which 
was  accompanied  by  cloud  tops  growing  above  the  30,000  foot  height. 
Hail  and  a  tornado  on  the  ground  near  Black  Hawk,  South  Dakota  were 
noted  during  this  later  cloud  building. 

It  seems  almost  too  coincidental  to  ignore  the  slight  but  un¬ 
questionable  small-scale  Increases  of  sferics  at  the  same  times 
that  funnel  clouds  and  hail  occur.  However,  there  aopear  to  be 
other  minor  increases  of  sferlc  rate  without  those  events  being 
observed. 

b  11  June  1969  -  Stillwater,  Oklahoma 

Three  sources  of  informatio  were  used  to  analyze  this  storm: 
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1)  O.S.U.  sferic  records  obtained  by  the  aircraft  sferic  data  sam¬ 
pling  system,  2)  National  Severe  Storms  Laboratory  (hereafter 
designated  NSSL),  Norman,  Oklahoma,  radar  clojd  height  information, 
and  3)  recorded  radio  comments  concerning  the  storm  and  aircraft 
locations. 

Figure  5  presents  the  sferic  rate  history  at  the  six  discrete 
frequencies  for  this  storm,  as  recorded  on  the  vertically  polarized 
receiving  system  of  the  sampling  aircraft.  The  aircraft  was  gen¬ 
erally  located  east  of  the  line  of  storm  cells  and  was  west  of 
Oklahoma  City  when  a  tornado  was  reported  near  Fairview,  Oklahoma, 
northwest  of  Oklahoma  City. 

Superimposed  upon  the  plot  of  Figure  5  are  the  three  available 
cloud  top  height  reports  of  the  NSSL  radar. 

The  first  event  of  interest  during  this  storm  of  11  June  1969 
was  a  tornado  near  Fairview,  Oklahoma.  Time  of  occurrence  of  the 
tornado  was  03:10  GMT  as  can  best  be  determined  from  ground  reports. 
However,  it  was  probably  associated  with  the  very  pronounced  sferic 
peak  at  03:08  GMT.  That  impulse  of  sferic  activity  (peak  at  03:08 
GMT)  shows  a  rapid  increase  of  sferic  rate.  Past  experience  leads 
one  to  suspect  a  sizeable  updraft  velocity  existed. 

The  second  event  of  Interest  ouring  this  storm  resulted  from 
NSSL  radar  information  subsequent  tc  the  tornado  event  Three  cloud 
height  reports  are  shown  plotted  with  respect  to  the  received  sferic 
rate.  One  can  only  say  that  cloud  tops  seen  by  radar  appear  to 
correlate  well  with  the  sferic  rate  of  the  storm,  as  was  the  case  in 
the  South  Dakota  storm  of  part  A.  Note  here,  however,  the  abrupt 
decrease  in  sferics  as  the  storm"topped  out",  i.e. ,  ceased  to  grow. 


23 


*l*C<ur?  ,*0  MH  1.5 
$  f  or  STO»M 


T<U*OCO  tSf  >>OM !  C  0 
H(M  f41»VfC<tf.  0»L* 


Figure 

Sferic  Rate  History  for  Stonr.  of 
It  June  1969,  n«ar  Fairview,  Oklahoma 


The  data  remain  suspect  at  the  time,  although  there  is  no  malfunc¬ 
tion  nor  other  abnormal  condition  that  can  be  found  during  data 
gathering  and  during  data  reduction.  If  true,  these  data  show  a 
storm  which  almost  literally  blew  itself  apart. 

Conci us  ions 

The  two  well  defined  storm  cases  presented  here  show  a  correla¬ 
tion  between  rapid  cloud  growth  and  sferic  rate.  Other  cases,  not 
presented  here,  give  examples  of  similar  correlation.  However, 
there  are  also  cases  of  rapid  visible  and  radar  reoorted  cloud 
growths  not  accompanied  by  the  increase  in  sferic  rate.  Therefore, 
we  must  conclude  that  a  “apid  increase  in  sferic  rate  signals  rapid 
cloud  building,  but  rapid  cloud  building  may  also  occur  without  a 
significant  sferic  rate  increase. 

It  is  also  concluded  that  more  meteorology  rust  be  in  hand  to 
determine  why  some  storms  are  more  electrically  active  than  others. 
Nuclei  and  cloud  particle  concentrations  must  be  known  as  well  as 
freezing  levels  and  temperature  structure  of  the  storms. 

Further  analysis  of  these  and  other  storms  is  being  done  to 
quantify  the  sferic  rate  and  updraft  velocity,  me  data  shown  here 
are  sufficient  only  to  indicate  what  might  be  a  reasonable  correla¬ 
tion  This  lead  must  now  be  followed  by  stronger  and  quantitative 
proof  of  the  stated  correlation. 

2.  CDEC  Results  From  The  Colorado  Joint  Hail  Research  Project  (JHPP). 

The  airborne  sferic-rate  recorder  is  a  solid  state  version  of 
the  laboratory  device  and  differs  only  in  the  options  allowed  to 
change  preamplifier  gains  and  integration  time  constants. 

The  airborne  device  was  installed  during  the  latter  pa**t  of 
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July  and  tested  during  the  CDEC  field  trip  to  WSMR,  New  Mexico, 
However,  the  system  was  not  considered  operational  until  the  August 
1970  CDEC  field  trip  to  Greeley,  Colorado,  in  conjuntion  with  the 
joint  Hail  Research  Project.  The  following  date  was  obtained  during 
that  data  gathering  trip. 

a.  August  4,  1970  -  Greeley,  Colorado  with  JHRP 

Figure  6  shows  a  sferic  rate  history  at  four  frequencies  for  a 
small  storm  which  failed  to  intensify  on  4  August  1970.  The  time 
of  occurrence  of  tne  main  shower  activity  coincides  with  the  maxi¬ 
mum  of  sferic  rate  at  00:05  GMT  and  is  most  readily  apparent  on  the 
250  KHz  trace. 

b.  August  5,  1970  -  Greeley,  Colorado  with  JHRP 

There  existed  a  line  of  storm  development  from  northeast  of 
Cheyenne,  Wyoming,  to  northeast  of  Greeley,  Colorado.  Development 
of  activity  was  from  the  northern  end  (Cheyenne)  southward.  The 
initial  buildups  were  mostly  rainshowers  of  considerable  duration 
and  magnitude.  However  the  main  storm  developed  east  of  Greely  and 
became  a  cumulonimbus  with  hailstorm  later  in  the  afternoon. 

The  sferic  record,  Figure  7,  shows  several  unexplained  phenomena 
in  the  sferic  rate  as  well  as  more  common  features.  The  abrupt 
peaks  in  the  10  KHz  trace  at  21:12,  21:32  and  peaks  near  21:45  GMT 
can  not  yet  be  explained.  The  decrease  in  sferic  rate  shown  at 
20:50  at  50  KHz,  100  KHz  and  250  KHz  is  the  decay  of  a  large  cell 
located  near  Cheyenne.  Brief  buildups  in  intensity  on  the  south 
end  of  the  storm  line,  i.e.  between  Cheyenne  and  Grover,  Colorado 
show  at  21:12  and  at  21:37.  A  subsequent  buildup  at  22:05  continued 
to  develop  into  a  hailstorm  with  hail  reported  about  22:30  GMT. 
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4  AUGUST  1970 


250  KHz 


The  brief  drop  in  sferic  rate  at  20:50  on  the  50  KHz  trace  is  an 
anomaly  which  can  not  be  explained  at  this  time.  The  period  between 
growth  impulses  on  this  storm  is  taken  to  be  about  25  minutes, 
c.  August  6,  1970  -  Greely,  Colorado  with  JHRP 
The  situation  on  August  6,  1970,  was  similar  to  that  of  August 
5th.  A  line  of  activity  extended  from  east  of  Cheyenne,  Wyoming 
southward  to  east  of  Greeley,  Colorado  with  the  northern  part  of 
the  line  developing  early  storms  and  subsequent  development  south¬ 
ward.  However,  the  storm  cells  on  August  6  developed  earlier  and 
contained  hail  earlier  than  on  the  previous  day.  The  periods  of 
development,  i.e.  the  growth  impulses,  show  clearly  at  250  KHz  in 
Figure  8.  20:15  GMT  shows  the  first  of  a  series  of  significant 

growth  impulses.  The  period  between  impulses  for  this  storm  was 
ten  minutes.  Hail  to  1  1/2"  was  reported  from  the  later  parts  of 
the  storm. 

3.  Conclusions  from  the  Data 

From  the  data  shown  here  and  in  previous  reports  it  is  evident 
that  the  sferic  rate  is  intimately  related  to  the  vertical  develop¬ 
ment  of  a  thunderstorm.  Furthermore,  the  spacing  of  growth  impulses 
during  any  one  storm  seems  to  be  regular  and  fairly  constant  on  any 
one  day.  The  growth  impulses  on  August  5  did  not  vary  from  25  minutes 
by  more  than  seven  minutes.  Those  on  August  6  did  not  vary  from 
ten  minutes  by  more  than  two  minutes.  There  were  standard  devia¬ 
tions  of  ,6  and  .35  respectively  for  the  periods  between  impulses 
of  the  two  storms.  Those  small  deviations  seem  to  be  the  general 
rulfc  .  the  storms  so  far  examined  by  the  use  of  sferics. 

lOKHz  sferics  seem  to  correspond  more  closely  to  the  general 
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IV.  DATA  PROCESSING  EQUIPMENT,  PROGRAMS  AND  PROCEDURES. 


During  the  period  covered  by  this  report,  a  number  of  new  digital 
programs  and  procedures  were  developed.  Additionally,  a  12-channel 
multiplexer  was  designed  and  constructed  as  was  a  sferic  activity  meter. 

For  the  benefit  of  project  members,  as  a  reference  and  guide,  some 
of  the  earlier  developed  programs  will  be  included  herein  in  order  that 
a  complete  package  will  be  available.  These  older  programs  are  named 
ADC1 ,  ADC2  and  ADC3. 

Much  of  the  data  processing  work  associated  with  the  project  hinges 
around  the  procedure  of  playing  back  analog  data  tapes,  converting  th 
data  to  digital  form-on  tape-and  then  doing  the  main  computation  on  an 
IBM  360/65  computer. 

The  experience  with  this  procedure  thus  far  has  shown  that  nothing 
can  be  left  to  chance  in  the  process.  To  insure  the  Integrity  of  the 
data  at  each  step,  the  procedure  and  results  must  be  checked  and  re¬ 
checked. 

The  analog  data  tape  is  1  inch  tape  recorded  with  a  total  of  four¬ 
teen  channels.  When  desired  twelve,  or  fewer,  of  these  channels  may  be 
digitized  through  the  use  of  the  multiplexer.  When  digitizing  only  one 
channel  the  conversion  rate  can  be  as  high  as  24,000  samples  per  second. 

The  resulting  digital  tape  is  standard  9-track  IBM  standard.  If 
the  diqital  data  tape  was  being  created  on  the  IBM  360  computing  system, 
then  either  IBM  labelled  or  unlabelled  tapes  could  be  created  easily. 
However,  when  the  data  is  being  written  on  the  tape  by  another  proces¬ 
sor  (HP2115A),  as  is  being  done  on  the  subject  project,  then  in  order 
that  these  tapes  can  be  read  back  by  the  IBM  360/65,  certain  preparations 
must  be  observed.  If  the  digitized  data  is  to  be  written  onto  an 
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unlabel  led  tape,  then  the  HP2115A  program  need  only  to  write  a  tape-mark 
(end-of-file)  prior  to  the  first  data  set.  While  unlabelled  tapes  are 
somewhat  easier  to  create,  there  is  a  danger  that  a  tape  with  good  data 
on  it  be  inadvertently  used  improperly  on  the  360/65. 

The  use  of  labelled  tapes  circumvents  the  problem  of  tapes  being 
used  improperly;  however,  creating  a  labelled  tape  is  a  more  involved 
procedure.  First,  the  reel  of  tape  must  be  submitted  to  the  360/65 
facility  as  a  special  run  solely  for  the  purpose  of  putting  a  unique 
label  on  the  tape.  At  this  time,  the  user  specified  the  volume  and 
serial  name  to  be  used.  After  the  tape  is  returned,  the  user  will  need 
to  load  a  data  set  name  on  the  tape.  This  may  be  accomplished  by  run¬ 
ning  a  normal  FORTRAN  job-with  dummy  data- to  place  a  data  set  on  the 
tape.  This  will  complete  the  standard  label  such  that  it  will  be  read 
properly  by  FORTRAN  in  the  future.  When  the  blank  labelled  tape  is 
loaded  on  the  HP2115A  system  to  receive  digitized  data,  the  HP2115A 
program  must  Initially  cause  the  first  four  records  to  be  skipped.  Then 
the  data  is  written.  These  four  records  constitute  the  label, 

PROGRAMS 

The  program  entitled  ADC1  and  listed  as  Figure  B-l,  is  for  the  pur¬ 
pose  of  converting  data  at  speeds  up  to  24,000  samples  per  second  and 
writing  the  result  on  an  unlabelled  digital  tape  The  digital  data  is 
In  raw  binary  form.  A  program  Is  available  for  the  IBM  360/65  computer 
for  converting  this  data  to  32-bit  floating-point  form  compatible  to 
FORTRAN  IV  (360). 

ADC2  given  in  FigureB-2is  also  for  converting  data  at  speeds  up  to 
24,000  SPS.  Only  one  record  is  converted  at  a  time,  and  some  flexibility 
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in  use  is  provided.  The  procedure  is  included  as  part  of  Figure  B-2. 

ADC2A  presented  in  Figure  B - 3i s  similar  to  ADC2  except  that  a 
labelled  tape  is  used  and  the  digitized  data  is  written  on  the  tape 
directly  in  32-bit  floating  point  form  ready  to  be  read  by  360  FORTRAN 
IV.  This  necessitates  a  maximum  convert  rate  of  13,000  SPS. 

ADC3,  Figure  B-4,  can  be  used  for  reading  a  record  of  data  from  the 
digital  tape  back  into  the  processor.  This  is  for  the  purpose  of  check¬ 
ing  the  nature  of  the  data  on  a  digital  tape. 

ADC4  depicted  in  Figure  B-5,  is  similar  to  ADC1.  Data  is  converted 
continuously  for  a  specified  number  of  records  and  written  on  a  standard 
labelled  tape  in  32-bit  floating  point  form.  This  Units  the  maximum 
sampling  to  13,000  SPS  but  the  output  tapes  are  ready  to  be  read  by  a 
360/65  FORTRAN  IV  program. 

ADC5  shown  as  Figure  B-6,  is  the  same  as  ADC4  except  it  outputs 
on  an  unlabelled  tape. 

DIAG1,  Figure  B-7,  is  designed  to  transfer  data  from  the  analog-to- 
digital  converter  into  the  B-register  of  the  HP2115A  processor.  This  is 
for  the  purpose  of  checking  for  proper  operation  of  the  A/D  converter 
and  the  I/O  interface. 

DIAG2,  Figure  B-8,  is  a  magnetic  tape  reading  program.  It  allows 
the  operator  to  go  forward  or  backwards  on  the  tape  in  steps  of  records. 
Data  on  any  record  may  be  observed  and  tape  marks  are  clearly  indicated. 

DIAG3  of  Figure  3-9,  consists  of  two  Independent  programs.  These 
are  for  testing  and  adjusting  the  multiplexer. 
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ADC1  Program 


Purpose: 
Speed: 
Output  tape: 

Procedure: 


To  digitize  analog  data  continuously. 

Up  to  24,000  sampler,  per  second. 

V.  ^belled  9-track.  Data  in  raw  16  bit  binary  form. 
2,0Q0^q  words  per  record.  (This  number  can  be  changed.) 

Mount  tape. 


Load  program  using  HP2115A  Basic  Binary  Loader.  (BBL) 

Program  origin  is  at  100  octal. 

Halt  No.  1  -  Load  switches  with  number  of  records  to  be 
written,  (octal)  Push  run. 

Halt  No.  2  -  Wait  to  ready  the  system.  Push  run  to  start 
system. 

Halt  No.  3  -  Records  complete.  Push  run  to  write  EOF  and 
rewind  tape. 

Halt  No.  4  -  End.  Mount  another  tape,  push  run  to  repeat 
entire  program. 


ADC2  Program 

Purpose: 
Speed: 
Output  tape: 

Special : 

Procedure: 


To  digitize  one  record  at  a  .me. 

Up  to  24,000  samples  per  second. 

Unlabelled  9-track.  Data  in  raw  16-tit  binary  form. 
2048^  words  per  record.  Thi «  can  be  changed. 

Forward  spacing  of  records  can  be  accomplished,  so  a  tape 
may  be  taken  down  and  then  remounted  later  and  continued. 

Mount  tape 

Load  program  tape  using  BBL. 

Program  entry  is  100  octal.  Push  run. 

Halt  No.  1  -  Set  Switches  to  the  number  of  records  to  be 
skipped.  Push  run. 

Halt  No.  2  -  Waiting.  Push  run  to  convert. 

Halt  No.  3  -  Set  Switches  one  of  three  options.  Then 
push  run. 

000  -  To  convert  another  record. 

Goes  back  to  Halt  No.  2. 

001  -  Backspace  one  record.  Push  run 
Goes  back  to  Halt  No.  2. 

010  -  Rewinds  tape.  Push  run. 

There  is  no  EOF  mark. 

Halt  after  rewind  is  end. 

Branch  manually  to  address  100  (octal)  to  repeat,  if 
desired. 


36 


ADC2A  Program 


Purpose: 
Speed: 
Output  tape: 

Procedure: 


To  digitize  one  or  more  records  at  a  time. 

Up  to  13,000  samples  per  second. 

Labelled  9-track.  Data  is  in  32-bit  360/65  floating  poin 
form.  1944  words  per  record  (can  be  changed). 

Mount  a  labelled  tape. 

Load  program  using  the  BBL. 

Program  entry  is  100  octal.  Do  not  push  run  yet. 

If  it  is  desired  to  space  forward  on  tape  then  tirn  on  bit 
switch  15.  Then  push  run. 

Otherwise,  push  run. 

Halt  14  -  Load  switches  with  number  of  records  to  be 
skipped.  Push  run. 

Enter  number  of  records  desired  into  switch 
register.  Push  run. 

Program  ready  and  waiting  to  start  converting 
data.  Push  run  to  start. 

A  data  convert  run  is  finished. 


Halt  0  - 
Halt  1  - 
Halt  66  - 

(a) 


To  proceed  with  another  run,  turn  on  bit  switch 
0  and  push  run.  The  program  will  return  to 
Halt  0.  Turn  off  SW  0. 


(b)  To  backspace  a  desired  number  of  records,  set 
bit  SW  15  and  push  run.  Program  will  backspace 
the  tape  and  then  return  to  Halt  0.  Turn  off 
SW  15. 

Halt  6  and  7  -  Error  halts.  Clock  rate  too  fast 
Halt  25  -  Tape  not  accepted  (not  proper  label). 
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ADC 3  Program 


Purpose: 

Features: 

Procedure: 


To  read  a  digital  tape  record  in  HP2115A  memory. 

Can  Forward  space  past  records.  Examine  words  in  a  record 
using  front  panel  ’ichts. 

Mount  tape. 

Load  program  with  B8L 

Program  entry  is  16100  octal.  Push  run. 

Halt  No.  1  -  Load  switch  register  with  number  of  records 
to  be  skipped.  Push  run. 

Halt  No.  2  -  Ready  to  read  tape. 

Push  run  to  read. 

Returns  to  Halt  No.  1. 

Data  may  be  viewed  on  T-register  lights. 

Tape  data  is  loaded  into  memory  address  02000  octal. 

2048  words  per  record  (can  be  changed). 

Halt  No.  1  -  If  desired  to  rewind  tape  -  set  bit  SW  15, 
push  run. 
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AQC4  Program 


Purpose:  To  digitize  analog  data  continuously 

Speed:  Up  to  13,000  samples  per  second. 

Output  Tape:  Labelled  9-track.  Data  is  in  32-bit  floating  point  form 
1944  words  per  record  (can  be  changed). 

Can  have  multiple  files  (data  sets). 

Procedure:  Mount  tape. 

Load  program  with  BBL. 

Entry  address  is  100  octal.  Push  run. 

Halt  0  -  Enter  number  of  records  to  be  written  in  switch 
register.  Octal.  Push  run. 

Halt  1  -  Ready  to  convert.  Push  run  to  start  converting 
Halt  66  and  Halt  77  -  Normal  end.  Data  loaded.  Push  run 

to  write  EOF.  Then  stops  on  Halt  70 
Halt  70  -  Push  run  sends  program  back  to  Halt  0  for  a 
second  file  (data  set). 

If  set  SW15,  then  push  run,  a  second  EOF  is 
written  (End  of  volume). 

Tape  is  rewound-stops  on  Halt  65  or  Halt  76, 

Halt  6  and  Halt  7  -  Error  halts.  Slow  clock  rate 


* 
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AUtb  Program 


Purpose;  To  digitize  analog  data  continuously. 

Speed:  Up  to  13,000  samples  per  second. 

Output  tape:  Unlabelled  9-track.  Data  is  in  32-bit  floating  point 

1944  words  per  record  (can  be  changed). 

Can  have  multiple  files  (data  sets). 

Procedure:  Same  as  ADC 4. 


DIAG1  Program 


Purpose:  To  check  A/D  converter  and  I/O  interface  of  processor. 

Procedure:  Load  pregram  with  BBL. 

Entry  address  is  100  octal.  Push  run. 

Halt  77  -  Ready.  Push  run  to  start. 

Connect  a  d-c  power  supply  (Q  -*•  ±  1  Ov )  to  the  analog  in¬ 
put  and  turn  on  the  clock  signal  to  the  A/D  converter. 

By  slowly  varying  the  input  voltage  the  user  can  watch 
the  B-register  count  up  and  down.  The  binary  reading  may 
be  compared  to  the  input  voltage  reading. 

If  bit  $W  15  is  set  at  any  time,  the  program  will  halt 
back  on  Halt  77. 


Purpose:  A  magnetic  tape  reading  program.  Allows  the  operator  to 
go  forward  or  backwards  on  the  tape  in  steps  of  records. 
Data  on  any  record  may  be  observed  and  tape  marks  are 
clearly  indicated. 

Procedure:  Mount  tape.  Load  program  using  BBL.  Program  entry  is 

100  octal.  The  first  halt,  Halt  76,  is  the  starting  point 
in  the  program.  The  "A"  and  "8“  registers  hold  the  number 
of  the  record  of  data  presently  directly  behind  the  mag¬ 
netic  read  read.  Two  operator  options  are  possible  at 
this  point.  Setting  bit  switches  14  and  15  causes  the 
tape  to  backspace  one  record.  Otherwise  the  next  record 
is  read  in  and  Halt  0  is  executed.  The  "A"  register  will 
contain  the  record  length  (up  to  7400g)  and  the  "B"  regis¬ 
ter  will  hold  the  record  number.  If  the  record  read  in 
is  a  tape  mark,  Halt  25  will  be  executed  and  177777„  will 
appear  in  the  "A" register  and  “B"  will  hold  the  record 
number.  Push  run  to  read  the  next  record. 

Pushing  run  after  Halt  0  allows  the  operator  several 
options.  One  may  look  at  the  nth_ word  on  the  tape  record 
by  entering  n-1  into  the  switch  register.  That  is,  to 
look  at  the  first  word  of  the  tape  record,  set  the  switch 
register  to  zero.  To  look  at  the  second  word,  set  the 
switch  register  to  1,  etc.  By  setting  switch  bit  "14" 

Halt  0  is  executed  with  the  registers  holding  the  same 
information  as  before.  Setting  bit  "lb"  returns  the  pro¬ 
gram  to  Halt  76  so  the  next  record  may  be  read,  or  the 
tape  may  be  backspaced.  The  memory  block  area  starts  at 
4000g. 


DIAG3  Program 


Purpose:  DIAG3  consists  of  two  independent  programs.  The  first  is 
intended  to  aid  in  setting  the  offset  voltage  of  the  multi¬ 
plexer.  The  second  determines  the  peak  input  voltage  to 
the  A/D  converter.  The  programs  are  located  in  memory 
such  that  they  may  be  loaded  and  executed  without  destroy¬ 
ing  either  the  Magnetic  Tape  Operating  System  or  the  mag¬ 
netic  tape  loading  programs  of  the  ADC  series. 

Procedure:  Load  the  program  tape  using  the  BBL. 

Entry  7000g:  Program  acts  as  an  integrator  on  the  data 
from  theBA/C  converter.  Intended  use  is  to  set  the 
offset  voltage  of  the  multiplexer. 

Entry  7100:  Program  reads  data  from  the  A/D  converter, 
removes  sign  and  compares  magnitude  with  largest  magni¬ 
tude  received  previously.  If  latest  input  is  larger, 
the  value  is  displayed  in  the  "A:  register.  Intended 
use  is  to  allow  operator  to  adjust  input  voltages  to 
the  A/D  converter  such  that  it  is  not  saturated  on  the 
peaks  of  the  input  waveforms. 

The  first  program  with  starting  address  of  7000g  reads 
data  from  the  A/O  converter  and  sums  all  the  inputs  to¬ 
gether.  That  is, the  program  simulates  an  integrator. 

The  integral  is  displayed  in  the  "A"  register  at  all  times.. 
The  "A"  register  m*y  be  zeroed  at  any  time  by  setting 
bit  SW  "15"  of  the  switch  register.  To  use  the  program, 
all  inputs  to  the  multiplexer  should  be  removed,  the  multi¬ 
plexer  output  connected  to  the  A/D  signal  input,  and  a 
clock  signal  connected  to  the  A/D  trigger  input.  By 
watching  the  "A"  register,  the  operator  can  determine  if 
the  average  offset  voltage  is  positive  or  negat.ve  He 
can  then  turn  the  potentiometer  to  adjust  the  offset 
voltage  the  proper  direction  such  that  the  integral  tends 
to  stay  close  to  zero.  The  potentiometer  is  under  the 
chassis  of  the  multiplexer.  However,  it  is  located  such 
that  it  may  be  adjusted  while  the  multiplexer  is  in  the 
relay  rack.  Experience  has  shown  that  it  is  usually  best 
to  have  a  slow  clock  rate  when  running  this  program, 

The  second  program  has  an  entry  addre;s  of  7100g,  It 
reads  data  from  the  A/D  converter,  strips  off  tne  sign  bit 
and  compares  the  magnitude  of  the  last  data  point  with  the 
largest  data  point  received  previously.  If  the  last  in¬ 
put  is  larger,  it  is  displayed  in  the  MA"  register.  Thus, 
the  program  tells  the  operator  the  peak  input  voltage  to 
the  A/D  converter.  Setting  bit  "15"  of  the  switch  regis¬ 
ter  will  reinitialize  the  program  at  any  time 
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Figure  9.  The  Data  Handling  and  Conversion  System 


Multiplexer,  A  multiplexer  was  designed  and  constructed  which 
allows  as  many  as  12  channels  to  be  digitized  simultaneously 

The  analog  portion  of  the  multiplexer  is  depicted  in  Figure  10 
The  analog  signals,  which  feed  into  terminals  A1  through  A12,  originate 
from  the  playback  Sangamo  analog  tape  machine.  These  signals  have  levels 

that  are  normally  in  the  0  to  10  volt  range.  The  preamplifiers  in  the 

multiplexer,  PAL  to  PA12,  are  designed  to  keep  the  signal  levels  at  a 
maximum  of  ±10  volts. 

When  a  sample  command  is  received  on  terminal  SC,  the  sample- 
hjld  integrators,  SHI  through  SH12,  all  go  into  HOlD  at  the  same  time 
Then,  in  the  interim  period  between  this  sample  command  and  the  next 
one,  the  data  samples  are  fed,  one  at  a  time,  to  the  analog-to-digital 
convertor  ( 761  A) ,  This  is  accomplished  by  opening  the  electronic 
switches,  SW1  through  SW12,  sequentially  in  turn  The  commutating 
control  signals  for  this  purpose  are  applied  to  terminals  SI  through 
S12  in  Figure  10. 

The  maximum  sampling  rate  of  the  system,  with  12  channels  opera¬ 
ting,  is  limited  first  by  the  digital  tape  machine  The  maximum 

sampling  rate,  per  channel,  is  1940  samples  per  second  This  figure 
is  arrived  at  by  dividing  me  overall  maximum  speed  of  25,250  samples 
per  second  by  13  (the  number  of  intervals  in  the  read-out  process) 
Naturally  if  fewer  channels  were  in  operation,  the  maximum  speed,  per 
channel,  would  be  faster 

The  necessary  timing  signals  to  accomplish  the  desired  sequencing 
of  the  HOLD  and  READ-OUT  operations  are  shown  in  figure  11  In  Figure 
12  is  pictured  the  digital  control  system  for  producing  the  timing 
signals 
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With  reference  to  Figure  12,  the  process  is  started  by  enabling 
the  GO  line.  This  can  be  done  manually  with  a  switch,  or  it  may  be 
desirable  at  times  to  synchronize  this  with  the  analog  playback  t?ne 
machine.  The  output  of  the  AND  gate,  AND1 ,  will  start  the  clock  when¬ 
ever  the  2115A  processor  delivers  a  SET-CONTROL  signal  (approximately 
2  ms  max  from  GO).  The  one-shot,  0S1,  provides  shaping  of  the  clock 
pulses  as  well  as  providing  a  10  ms  delay  for  the  ADC  convert  s 1 1 . 

The  first  change  of  the  ring-counter  sets  the  HOLD  flip-fop 
which,  in  turn,  causes  the  sample-hold  integrators  to  HOLD.  Then, 
as  subsequent  clock  pulses  occur,  the  ring-counter  steps  through  13 
intervals.  The  outputs  of  12  of  tie  ring-counter  flip-flops  are  used 
to  gate  the  electronic  switches  SW1  -  SW12.  The  13th  interval  allows 
the  sample-hold  integrators  to  go  back  to  the  track  or  sample  states 
and  to  stay  in  that  state  long  enough  to  assume  stable  tracking 
operation.  The  entire  cycle  is  then  repeated  when  the  ring-c:unter 
starts  its  cycle  again. 
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TABLE  I 


Identification  of  Analog  and  Digital  Modules 


PA 

BA 

SH 

SW 

Clock 

OS 

Inv 

FF 

NCI 

NC2 

AND1 


Type  3112/12C,  Burr-Brown 

Type  3130/15  ,  Burr-Brown 

Type  4035/15  ,  Burr-Brown 

Type  9859/15  ,  Burr-Brown 

Type  R401  ,  Digital  Equipment  Corporation 

Type  R302  ,  Digital  Equipment  Corporation 

Type  R107  ,  Digital  Equipment  Corporation 

Type  R202  ,  Digital  Equipment  Corporation 

Type  W600  ,  Oigital  Equipment  Corporation 

Type  W601  ,  Digital  Equipment  Corporation 

Type  Rill  ,  Digital  Equipment  Corporation 
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gure  11  Digital  Timing  Signal  Sequence 


Figure  12,  Digital  Control  System  for  the  Multiplexer 


Sferic  Activity  Meter,  During  the  year,  work  has  been  done  toward 
the  development  of  a  more  universal  sferic  activity  meter.  This  device 
is  one  embodying  principles  similar  to  that  t  ed  in  producing  the  Sferic 
Rate  Histories  presented  as  Figure  2,  page  9,  of  the  Quarterly  Report 
dated  March  31,  1970. 

The  diagram  of  Figure  13  represents  the  present  form  of  the  sferic 
instrument  and  the  general  nature  of  its  operation  is  as  follows  The 
input  signal  at  terminal,  T1 ,  is  the  sferic  signal  from  either  a  play¬ 
back  of  an  analog  record  or  it  can  be  originating  in  real-time  from  a 
detector  output.  In  any  event,  it  must  be  composed  of  positive  signal 
bursts.  Waveform,  SI,  of  Figure  14  is  representative  of  this  signal. 

The  circuit  is  designed  to  accommodate  an  input  signal,  SI,  with 
a  minimum  level  of  about  0.1  volt  peak.  The  gain  control  PI,  allows 
adjustment  for  larger  signals. 

The  inverting  amplifier,  A1 ,  has  gain  of  100  This  builds  up  the 
maximum  value  of  the  signal  to  approximately  10  volts  (negative  peak). 
Control  P2  sets  the  maximum  negative  limiting  level  of  the  amplifier 
to  prevent  overloading. 

The  Schmitt  Trigger  works  as  a  discriminator  against  undesirable 
noise  levels.  The  logic  output  levels  of  the  trigger  are  0  and  -3 
volts  The  threshold  levels  at  which  the  circuit  switches  are  nominally 
-2,2  and  -0.8  volts;  however,  these  can  be  adjusted  by  pots  P4  and  P5 
for  changing  the  discriminating  characteristics  The  typical  output 
of  the  Schmitt  Trigger  appears  in  Figure  14  as  waveform  S3 

The  next  stage,  the  one-shot  multivibrator,  OS,  is  for  standard¬ 
izing  the  widths  of  the  pulses  which  coincide  with  sferic  bursts  The 
adjustment  of  the  pul;  width  is  quite  critical  and  the  necessary  width 
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is  related  to  the  nature  of  the  sferic  bursts.  Waveform  S4  of  Figure  14 
is  representative  of  the  output  of  the  OS. 

The  special  integrator,  II,  serves  as  a  short-time  analog  memory. 

In  terms  of  the  LaPlace  Transform  operator,  S,  this  stage  has  a  transfer 
function  of 

C°_\  1  i 

^  [m^-] 

which  shows  the  state  to  be  a  first-order  log  function.  The  time  con¬ 
stant  of  the  special  integrator  has  three  selections  controlled  by 
switch  SW1.  They  are  70,  45  and  15  seconds,  respectively.  S5  waveform 
in  Figure  14  serves  to  show  the  action  of  this  stage. 

The  amplifier  A2  serves  merely  to  interface  the  resulting  signal 
from  the  integrator  to  a  recording  meter  Ml.  The  present  recorder,  a 
RUSTRAK,  requires  1  ma  for  full-scale  deflection.  Amplifier  A2  has 
normal  gain  of  2. 

In  order  that  the  sferic  activity  meter  be  suitably  responsive  to 
varied  storm  conditions,  the  threshold  levels  of  the  Schmitt  Trigger, 
the  plus  width  of  the  one-shot  and  the  time-constant  (and  gain)  of  the 
lst-order  lag  integrator  must  be  coordinated  suitably.  Studies  and  ex¬ 
periments  along  this  vein  are  continuing. 


52 


53 


Diagram  of  the  Sferic  Activity  Meter 


Figure  14.  Signal  Waveforms 


APPENDIX  A 
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Major  Field:  Electrical  Engineering 

Scope  and  Method  of  Study:  Most  of  the  earlier  research  efforts  in 
pattern  recognition  h  ve  been  directed  towards  developing  proce¬ 
dures  for  learning  to  recognize  patterns  with  a  perfect  teacher. 

In  recent  years  considerable  attention  has  been  given  to  the  prob¬ 
lem  of  learning  without  a  teacher.  In  between  these  two  vastly 
different  classes  of  problems  is  the  problem  of  learning  to  recog¬ 
nize  patterns  with  an  imperfect  teacher.  This  dissertation  devel¬ 
ops  procedures  for  learning  to  recognize  patterns  with  an  imperfect 
teacher.  The  result  is  a  nonparametric  learning  procedure.  Theo¬ 
rems  concerning  the  derivation  of  the  learning  procedure  and  anal¬ 
ysis  of  performance  are  presented.  The  concept  of  feedback  in  the 
proposed  learning  scheme  is  investigated  and  a  feedback  learning 
scheme  is  proposed-  The  proposed  feedback  learning  scheme  is 
simulated  on  the  computer  and  the  results  on  the  performance  of  the 
learning  schemes  are  given.  A  comparison  of  the  performances  of 
the  learning  scheme  with  feedback  and  learning  scheme  without  feed¬ 
back  is  presented 

Findings  and  Conclusions:  The  proposed  learning  scheme  is  asymptotic¬ 
ally  optimal  in  the  sense  that  it  has  an  average  risk  equal  to 
Bayes'  (minimum)  risk  If  the  density  functions  do  not  overlap 
then  the  average  asymptotic  performance  of  the  learning  scheme  is 
better  than  the  nearest  neighbor  rule  and  the  imperfect  teacher. 

The  above  results  are  true  with  a  finite  sample  size  also.  For 
overlapping  dens i ties  if  the  Bayes'  r->sk  is  less  than  (1-s),  B 
being  the  probability  that  the  teacher  classifies  a  sample  correct¬ 
ly,  then  the  proposed  learning  scheme  is  still  better  than  the 
nearest  neighbor  rule  and  the  imperfect  teacher  Also  the  proposed 
learning  scheme  does  not  require  a  knowledge  of  the  exact  value  of 
1 


The  thresholded  feedback  scheme  proposed  provides  a  deterministic 
method  for  combining  the  knowledge  acquired  by  the  learning  scheme 
with  that  provided  by  the  imperfect  teacher.  Threshold  also  pro¬ 
vides  control  over  the  amount  of  feedback  and  facilitates  a  gradual 
phasing  out  of  the  teacher  If  the  density  functions  do  not  over¬ 
lap  then  feedback  results  in  an  improvement  in  the  average  per¬ 
formance  of  the  learning  scheme.  With  overlapping  densities  such 
an  improvement  is  possible  only  for  low  values  of  0.  Further  re¬ 
search  needs  to  be  done  on  using  feedback  with  overlapping  densi¬ 
ties,  on  using  a  probabilistic  feedback. 
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Scope  and  Method  of  Study:  This  investigation  was  undertaken  to  develop 
a  second-order  statistical  description  of  the  thunderstorm  signa¬ 
ture  as  a  source  of  noise  interference.  A  characterization  was  ob¬ 
tained  under  three  constraining  conditions:  (1)  the  data  were 
gathered  at  a  distance  of  thirty  kilometers  from  the  storm;  (2) 
measurements  of  the  storm  signature  were  taken  over  the  VLF  portion 
of  the  radiated  spectrum;  and  (3)  tiie  study  was  specialized  to  the 
segments  of  data  which  exhibited  intense  sferic  activity.  The  data 
were,  first,  analyzed  to  determine  whether  or  not  a  stationary 
assumption  would  be  valid.  It  is  shown  that  the  sferic  triggering 
mechanism  can  be  modeled  by  a  Poisson  impulse  process.  Based  on 
the  assumption  of  wide  sense  stationarity,  estimates  of  the  time 
averaged  autocorrelation  and  power  spectral  density  functions  are 
computed  from  three  data  segments  of  0.75  second  duration  These 

estimates  are  then,  averaged  to  form  an  improved  estimate. 

Findings  and  Conclusions:  The  assumption  of  stationarity  in  the  wide 
sense  appears  valid  for  data  segments  evidencing  extremely  intense 
sferic  activity.  Using  a  wide  sense  stationary  model,  estimates  of 
the  time  averaged  autocorrelation  and  power  spectral  density  func¬ 
tions,  computes  from  three  member  functions  of  the  ensemble,  wero 
found  to  be  strikingly  similar  after  being  normalized  to  the  aver¬ 
age  measured  power.  Because  of  the  close  resemblance,  it  is  con¬ 
cluded  that  the  mean  of  thf  me  a  vetoed  autocorrelation  and 
power  spectral  density  estimates  is  a  reasonable  description  of  the 
process  in  an  ensemble  sense.  Specifically,  it  appears  likely  that 
this  is  a  representative  description  of  data  segments  evidencing 
extremely  intense  sferic  activity.  It  is  believed  that  this  des¬ 
cription  may  be  useful  in  the  design  of  filters  for  the  purpose  of 
minimizing  thunderstorm  noise  interference  in  a  mean  square  sense 
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ABSTRACT 


A  procedure  for  classifying  lightning  discharges  into  cloud-to- 
ground  or  cloud- to-cloud  type  is  developed.  This  classification  pro¬ 
cedure  is  based  on  a  set  of  measurements  indicative  of  the  frequency 
content  of  both  horizontally  and  vertically  polarized  sferic  signals 
from  lightning  discharges.  The  data  corresponding  to  84  visually  iden¬ 
tified  discharges  from  one  storm  were  used  to  develop  the  classification 
procedure.  Additional  data  corresponding  to  50  identified  discharges 
from  another  storm:  were  used  to  test  the  resulting  classification 
scheme.  Up  to  82  percent  agreement  was  found,  on  the  test  samples,  be¬ 
tween  visual  identification  of  the  discharge  and  the  type  given  b, 
the  classification  scheme. 

We  found  that  significant  difference  exists  in  the  frequency  con¬ 
tent  of  the  horizontally  polarized  sferic  signal  from  eloud-to-groun  i 
and  cloud-to-cloud  discharges  Also,  the  polarization  ratio  of  the 
signal  in  the  50  kHz  range  was  found  to  be  considerably  different  for 
the  two  types  of  discharges 
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A  PATTERN  RECOGNITION  APPRO^H 

K.  Shanmugam  A.  M.  Breipohl 

Oklahoma  State  University  University  of  Kansas 

Stillwater,  Oklahoma  Lawrence,  Kansas 

INTRODUCTION. 

Considerable  progress  has  been  made  during  the  past  30  years  in 
the  study  of  sferics  from  lightning  discharges.  Most  of  the  earlier 
research  attempts  in  this  area  have  been  directed  towards  understanding 
the  nature  of  cloud- to-ground  discharges.  In  recent  years,  efforts 
have  been  made  towards  the  investigation  of  the  nature  of  cloud-to- 
cloud  discharges  (Ogawa,  T. .  and  M.  Brook,  1964)  and  towards  finding 
out  and  explaining  the  differences  in  the  sferic  signals  from  different 
types  of  discharges  (N.  Kitagaw  and  M.  Brook,  1960).  This  paper 
examines  the  differences  in  the  frequency  content  of  the  sferic  signal 
from  cloud-to-cloud  and  cloud-to-ground  discharges. 

The  frequency  content  of  the  sferic  signal  from  lightning  discharges 
have  been  studies  by  many  investigators  (Arnold  and  Pierce,  1964;  Dennis 
and  Pierce,  1934;  Taylor,  1963).  Most  of  the  studies  in  this  area  are 
based  on  measurement  of  vertically  p  1arized  sferic  signals  recorded  on 
the  surface  of  the  earth.  By  means  of  airborne  instrumentation,  both 
horizontally  and  vertically  polarized  sferic  signals  from  lightning 
discharges  were  recorded  and  analyzed.  Significant  differences  in  the 
frequency  content  of  the  sferic  signal  from  cloud-to-ground  and  cloud- 
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to-cloud  discharges  are  pointed  out  and  a  procedure  is  given  for  dis¬ 
criminating  between  these  two  types  of  discharges  in  the  absence  of 
visual  identification. 

INSTRUMENTATION  AND  DATA  GATHERING. 

From  the  boundary  conditions  imposed  on  Maxwell's  equations  it 
follows  that  the  horizontal  polarization  of  the  sferic  signal  cannot  be 
measured  effectively  on  the  ground  at  low  frequencies.  Hence,  airborne 
instrumentation  was  used  in  this  investigation.  Also,  the  airborne 
instrumentation  made  it  possible  to  stay  close  to  a  moving  storm  and 
collect  data  for  a  reasonably  long  time.  The  antenna  complement  of  the 
instrumentation  consists  of  a  vertical  whip  antenna  mounted  on  top  of 
the  fuselage  of  the  research  aircraft  (D-18S  Beechcraft)  and  a  horizon¬ 
tal  tow- type  antenna  attached  to  a  cable  which  unreels  from  the  tail  of 
the  aircraft.  The  signal  flow  path*  which  is  identical  for  both  hori¬ 
zontal  and  vertical  antennas,  is  shown  in  Figure  1. 

The  signal  gathered  at  the  antenna  is  routed  through  a  cathode 
follower,  pre-amp,  cathode  follower  assembly  to  a  set  of  comb  filters. 
The  filters  used  have  center  frequencies  of  10kHz,  50kHz,  150kHz  and 
250kHz  and  a  bandwidth  of  1  kHz.  The  output  of  eacn  comb  filter  is 
then  envelope  detected  with  a  detection  time  extant  of  1  millisecond 
The  detected  signal  is  then  recorded  in  FM  mode  on  one  of  the  12  data 
channels  of  a  magnetic  tape  recorder.  In  addition  to  the  sferic  data, 
one  of  the  edge  tracks  of  the  tape  contains  an  audio  recording  of  the 
comments  of  an  observer  in  the  aircraft.  These  comments,  recorded  in 
real  time  along  with  the  sferic  data,  retain  information  about  tne 
type  of  discharges  that  were  visually  identified  by  the  observer  in  the 
aircraft.  When  the  sferic  data  is  played  back,  the  voice  recording 

61 


serves  to  identify  a  burst  of  data  as  coming  fron  a  cloud-to-ground  or 
cloud- to-cloud  discharge. 

The  data  used  in  this  investigation  were  taken  during  two  thunder¬ 
storms  in  Oklahoma  during  June,  1969.  Both  the  storms  were  of  frontal 
type  and  had  a  large  number  of  well  defined  lightning  discharges.  The 
aircraft  was  flying  elliptical  paths  on  one  side  of  the  storms  at  a 
distance  of  approximately  30  kilometers  and  an  altitude  of  5  kilometers. 
The  data  corresponding  to  50  discharges  from  the  storm  on  June  11,  1969 
and  64  discharges  from  the  storm  on  June  22,  1969  were  processed  for  a 
set  of  measurements  as  described  below. 

DATA  REDUCTION. 

The  first  step  in  data  reduction  was  converting  the  analog  data 
into  digital  form  suitable  for  processing  on  the  digital  computer. 
Sections  of  recorded  data  corresponding  to  visually  identified,  well 
defined  discharges  were  selected  and  the  analog  da1'  was  converted  into 
digital  form.  The  average  duration  of  the  signal  from  the  discharges 
was  about  3/4  second  and  the  digital  data  for  the  duration  of  the 
individual  discharges  were  processed  for  a  set  of  measurements  which 
served  as  inputs  to  the  pattern  recognition  scheme. 

The  measurements  derived  from  the  data  consists  of  the  relative 
amounts  of  energy  in  the  various  comb  filter  frequencies.  Even  though 
one  would  normally  require  exact  values  for  these  measurements  for  a 
quantitative  analysis,  a  relative  measure  of  these  values  will  be 
adequate  for  pattern  recognition  purposes. 

The  energy  received  from  a  discharge  at  the  input  of  a  particular 
comb  filter  channel  is  the  product  of  the  average  power,  N,  at  the  input 
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and  the  duration  T  of  the  discharge.  Since  T  is  the  same  for  all  fre¬ 
quencies  for  a  given  discharge,  the  average  value  of  power  at  the  input 
to  the  filter  is  sufficient  for  comparing  the  relative  amounts  of  energy 
in  various  comb  filter  bands.  For  small  amplitudes,  the  envelope  of 
the  comb  filter  output  has  been  shown  (Horner,  F. ,  1964)  to  have  a 
Ralegh  distribution  with  a  mean  equal  to  /Ntt/2,  Hence  the  average 
value  of  the  comb  filter  output  is  a  relative  measure  of  N,  the  average 
power  at  the  input  and  hence  a  measure  of  energy. 

Since  the  received  energy  is  a  function  of  the  distance  between 
the  aircraft  and  the  discharge  and  since  this  varies  from  discharge  to 
discharge,  the  average  value  of  the  signal  in  various  comb  filter 
channels  were  normalized  as  follows:  The  average  value  of  the  signal 
in  each  of  the  four  horizontal  charnels  was  normalized  with  respect  to 
the  sum  of  averages  in  all  horizontal  channels.  This  gives  a  relative 
measure  of  the  fraction  of  horizontally  polarized  energy  that  appears 
in  a  given  comb  filter  band  of  frequencies.  Similarly,  the  averages 
in  the  vertical  channels  were  normalized  with  respect  to  the  sum  of 
averages  in  all  the  vertical  channels.  The  sum  of  averages  in  horizon¬ 
tal  and  vertical  channels  were  normalized  with  respect  to  the  total  sum 
to  obtain  fractions  of  total  energy  that  are  horizontally  and  vertically 
polarized.  In  addition  to  these  10  measurements  the  average  values  of 
signal  in  50  kHz  horizontal  and  vertical  channels,  normalized  with  respect 
to  their  sum  were  taken  to  represent  the  polarization  ratio  in  50  kHz 
range.  This  set  of  twelve  measurements  are  listed  below. 

x-|  -  Normalized  average  value  of  signal  in  10  kHz  Horizontal 

x 2  -  Normalized  average  value  of  signal  in  50  kHz  Horizontal 

x^  -  Normalized  average  value  of  signal  in  150  kHz  Horizontal 
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x4  -  Normalized  average  value  of  signal  in  250  kHz  Horizontal 

Xj.  -  Normalized  average  value  of  signal  in  10  kHz  Vertical 

x.  -  Normalized  average  value  of  signal  in  50  kHz  Vertical 

0 

x7  -  Normalized  average  value  of  signal  in  150  kHz  Vertical 

Xg  -  Normalized  average  value  of  signal  in  250  kHz  Vertical 

Xg  -  Normalized  sum  of  average  value  of  signal  in  horizontal  channels 

x.| q  -  Normalized  sum  of  average  value  of  signal  in  vertical  channels 

x^  -  No rnial i zea  horizontal  signal  in  50  kHz  channel 

x^  ‘  Normalized  vertical  signal  in  50  kHz  channel 


Since  x^,  Xg,  x-^  and  x^can  be  calculated  if  the  other  measure¬ 
ments  are  known,  these  were  eliminated  as  inputs  to  the  pattern  recog¬ 
nition  scheme.  The  remaining  8  measurements  were  used  to  form  a 
"pattern  vector"  X  from  the  data  corresponding  to  each  identified  dis¬ 
charge,  where 


Cxl‘  x2 ’  x3*  x5’  V  x7’  x9*  xll] 


For  sample  patterns  used  to  train  the  pattern  classifier,  informa¬ 
tion  about  the  type  of  discharge  to  which  a  particular  pattern  corre¬ 
sponds  is  needed  as  an  input  to  the  classifier.  This  identification 
information,  denoted  by  e1 ,  comes  from  visual  sightings  of  the  discharge 
by  the  observer  in  the  aircraft.  If  9^  and  e2  denote  cloud-to-ground 
and  cloud-to-cloud  discharges  respectively,  then  e1  takes  the  form 
or  depending  on  if  X^  corresponds  to  a  discharge  Identified  as  cloud- 
to-ground  or  cloud-to-cloud  type,  Combining  this  information  with  X^ , 

the  data  presented  the  pattern  recognition  scheme  consists  of  a  set  of 

,1 


me as u remen 


t  pairs  (X-j  ,9  ) ,  .  ,  (Xn,en). 


64 


PATTERN  RECOGNITION. 


The  pattern  recognition  problem  in  this  investigation  consists  of 
developing  procedures  for  identifying  cloud-to-ground  and  cloud-to- 
cloud  discharges  based  upon  the  sferic  signals.  The  classification 
procedure  is  developed  from  a  given  set  of  measurement  pairs 
(X-,.61),  ....  (Xn,en).  After  the  development  of  a  classification  pro¬ 
cedure,  only  the  measurement  X  is  available  and  an  estimate  is  desired 
of  the  type  of  discharge  from  which  X  was  derived.  Three  methods  des¬ 
cribed  below  were  used  for  developing  such  procedures  based  on  a  set  of 
n  measurement  pairs. 

1.  Polynomial  Discriminant  Function  Method:  For  probabilistic 
pattern  sets,  a  Bayes'  procedure  for  classifying  patterns  into  e-|  or 
%2  with  minimum  probability  of  misclassifi cation  uses  a  discriminant 
function  of  the  form, 

OCX)  =  P(e,)  fxj;  -  p{e2)  fx(;  ,  (3) 

where  P(e^)  is  the  probability  that  a  measurement  X  has  a  visual  identi¬ 
fication  o . ,  and  fv | '  is  the  conditional  probability  density  function 
of  X  given  that  X  is  visually  identified  as  .  A  given  pattern  X  is 
assigned  to  if  D(X)  >  0  and  to  ©2  if  D(X)  -*  0.  Since  no  knowledge 
about  P(e.)  and  fX|  is  assumed,  these  quantities  have  to  be  estimated 
from  the  given  sample  patterns. 

The  quantity  P(e.)  was  estimated  by 
n. 

p(»P  •  j.  . 

where  ni  is  the  number  of  sample  patterns  with  the  identification 
and  n  is  the  total  number  of  samples.  The  unknown  densities  f^  were 
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estimated  in  the  form  of  a  second  order  polynomial  in  the  components  of 
X,  as  proposed  by  Specht  (1967).  Using  the  estimated  probabilities  and 
density  functions  in  Equation  (3),  the  estimated  discriminant  function 

D ( X )  =  P ( e-, )  D-j  (X)  -  P(e2)  02(X)  (4) 

was  used  to  classify  X  into  or  e2  depending  on  if  D (X )  >  0  or 

D(X)  <  0.  In  Equation  (4),  for  i  =  1  or  2  D..(X)  is  the  polynomial  esti¬ 

mator  of  fvl"  whose  coefficients  were  computed  from  the  sample  patterns 

x  1 9i . 

identified  as  9 . .  Expressions  for  computing  and  updating  these  coeffi¬ 
cients  were  given  by  Sprecht  (1967). 

2  Threshold  Logic  Unit:  In  the  threshold  logic  unit  method,  a 
linear  discriminant  function  of  the  form 

D(X)  =  W| x i  +  w2x2  +  .  .  .  +  wdxd  +  wd+1  (5) 

was  used  to  classify  X  into  e1  or  e2  depending  on  whether  D(X)  >  0  or 

D(X)  -•  0.  In  Equation  (5),  d  is  the  number  of  measurements  used,  x-| ,  . 

,  xd  are  the  components  of  the  pattern  vector  X  and  w-j,  w2,  .  .  „  , 
wd+1  are  a  set  of  weights  determined  through  an  error  correcting  pro¬ 
cedure  (Nil Ison ,  1965).  The  correction  factor  in  this  procedure  was 
made  to  decrease  as  l/(m+l)  where  m  denotes  the  number  of  training  cycles 
completed  The  weight  vector  that  resulted  at  the  end  of  1,000  training 
cycles  was  used  in  Equation  (5)  for  classifying  the  test  patterns., 

3  Linear  Least  Square  Method:  A  linear  discriminant  function  of 

the  form  given  in  Equation  (5)  was  used  in  this  method  also.  However, 

n  t  ? 

the  weight  vectors  were  chosen  such  that  the  sum  i  (V^  -  wd+^  -  W  X . ) 
is  minimized,  where 

Y.  =  +1  if  X^  has  an  identification 
vi  =  -1  if  X.  has  an  identification  92 
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and 


J 

W  -  (w-j  i  w2 ,  •  *  •  »  • 

RESULTS. 

Data  corresponding  to  84  discharges  from  one  storm,  consisting  of 
42  cloud- to-ground  discharges  and  42  cloud-to-cloud  discharges  were  used 
to  "train"  the  pattern  classifier.  Fifty  additional  samples  from  a 
different  storm  were  used  to  test  the  performance  of  the  trained  class¬ 
ifier.  The  index  of  performance  was  the  percentage  agreement  between 
the  identification  provided  by  the  classifier  and  the  visual  identifica¬ 
tion  of  the  test  samples. 

The  classifier  was  first  trained  with  all  the  eight  measurements 
as  inputs  to  the  classifier.  At  the  end  of  training,  it  was  observed 
that  the  weights  attached  to  measurements  x1 ,  x2  and  x^  were  large  in 
magnitude  compared  to  the  other  measurements.  This  suggested  that  x^ , 
x2  and  x^  are  more  significant  than  the  remaining  measurements.  So 
the  classifier  was  trained  again  with  x1  and  x2  and  also  with  x^  x2 
and  x^.  The  summary  of  performance  of  the  classifier  for  the  three 
different  methods  of  training  with  three  different  input  measurement 
sets  is  given  in  Table  I.  The  entries  in  the  table  represent  the  per¬ 
centage  agreement  between  the  classification  provided  by  the  pattern 
recognition  scheme  and  visual  Identification  on  the  50  test  samples. 

It  can  be  seen  from  Table  I,  that  the  best  classification  scheme 
is  the  one  using  x^,  x2  and  x^  as  input  measurements.  A  scatter  dia¬ 
gram  of  the  training  patterns  with  respect  to  these  measurements  is 
shown  in  Figures  2  and  3.  The  following  observations  can  be  made  from 
these  Figures. 


(1)  Cloud-to-cloud  discharges  tended  to  have  more  horizontally 
polarized  energy  in  50  kHz  range  while  cloud-to-ground  dis¬ 
charges  tended  to  have  more  horizontally  polarized  energy  in 
10  kHz  range, 

(2)  Cloud-to-ground  discharges  tended  to  have  more  vertically 
polarized  energy  in  50  kHz  range  while  cloud-to-cloud  dis¬ 
charges  tended  to  have  n.ore  horizontally  polarized  energy. 

The  differences  in  frequency  content  of  the  two  types  of  discharges 
can  be  explained  in  terms  of  the  physical  lengths  of  the  discharge  paths, 
the  magnitude  of  currents  and  the  rates  at  which  they  change.  In  a 
cloud- to-ground  discharge,  two  main  sources  of  radiation  are  the  step 
leader  and  the  return  strokes.  Return  strokes,  which  are  strong  and 
contain  large  slowly  changing  currents,  radiate  maximum  energy  in 
5-10  kHz  range  (Uman,  1969;  Dennis  and  Pierce,  1964).  Return  strokes 
may  also  have  continuing  current  with  energy  in  the  ELF  range.  The 
cloud-to-cloud  discharges  do  not  have  return  strokes  of  the  same  form 
as  those  in  a  cloud- to-  ground  discharge.  They  may  radiate  low  fre¬ 
quency  energy  comparable  with  but  usually  smaller  then  that  from  return 
strokes  (Hornr*-,  1964),  hence  cloud-to-cloud  discharges  have  compara¬ 
tively  smaller  energy  in  the  lower  frequencies. 

The  difference  in  polarization  can  be  attributed  to  the  physical 
orientation  of  the  discharge,  the  cloud-to-ground  discharges  having 
mere  of  a  vertical  orientation  The  average  value  of  the  percentage  of 
horizontally  polarized  energy  in  50  kHz  range  for  the  cloud-to-ground 
discharge  was  found  to  be  39.85*  and  was  49.10X  for  cloud-to-cloud 
discharges  This  39.85‘»  horizontal  polarization  for  cloud- to-ground 
discharges  suggests  that  the  horizontal  component  of  the  in-cloud 
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channel  on  the  average  is  comparable  to  the  vertical  component  Based 
on  a  study  of  electric  field  changes  involving  539  return  strokes  in¬ 
volving  84  flashes,  T.  Ogawa  and  M.  Brook  (1969)  concluded  that  the 
horizontal  component  of  the  in-cloud  channel  is  significant  and  on  the 
average  exceeds  the  vertical  component.  Our  results  support  the  con¬ 
clusions  of  T.  Ogawa  and  M.  Brook  to  the  extent  that  there  is  signigicant 
horizontal  component  in  cloud-to-ground  discharges.  Since  four  channels 
that  we  used  did  not  encompass  the  entire  range  of  frequencies  containing 
energy,  further  interpretation  of  our  results  is  not  possible. 

The  performance  of  the  classification  procedure  evaluated  by 
checking  for  agreement  with  visual  identification  does  not  give  a 
measure  of  the  true  performance  of  the  classifier.  If  6*  is  the  pro¬ 
bability  that  the  computer  gives  correct  identification,  and  if  a  is 
the  corresponding  probability  for  visual  identification,  then  the  pro¬ 
bability  of  agreement  between  the  two  is  68*  +  (1-6)  (1-6*).  If  a  and 
6*  1/2,  then  the  probability  of  agreement  given  in  table  one  will  be 

'ess  thata*  that  the  probability  classification  scheme  gives  correct  per¬ 
formance,  i.e  ,  the  true  performance  index  of  the  pattern  recognition 
scheme  will  be  higher  than  the  probability  of  agreement  given  in  table 
one  (Shanmugam  and  Breipohl,  1970). 

CONCLUSIONS 

It  has  been  shown  that  measurements  from  sferic  data  can  be  used  to 
Identify  cloud-to-doud  and  cloud- to-ground  discharges  There  are 
significant  differences  In  the  frequency  spectrum  of  the  horizontally  polar¬ 
ized  sferic  signal  and  the  differences  are  significant  in  the  horizon¬ 
tal  vs  vertical  polarization  ratio  of  the  sferic  signal  in  50  kHz  range. 
Combining  these  two  measures  we  found  that  the  identification  provided 
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by  the  pattern  recognition  scheme  agreed  up  to  82 %  with  visual  observa¬ 
tions. 
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Table  1.  Summary  of  Performance 


Input 

Percentage  Agreement  with  Visual  Identification 

Measurements 

Polynomial  Discriminant 
Function  Method 

Threshold 
Logic  Unit 

Linear  Least 
Sq.  Method 

All 

70% 

74% 

80% 

X]  <  x 2 

72% 

78% 

74% 

D 

76% 

80% 

82% 

LEGEND  FOR  FIGURES 


Figure  1.  Block  Diagram  of  Instrumentation. 

Figure  2.  Horizontally  polarized  Energy  in  10  kHz  Vs  50  kHz. 

Figure  3.  Horizontal  Vs  Vertical  Polarization  in  50  kHz  band  All  the 

points  in  this  diagram  lie  along  the  line  x..  +  x.?  =  100, 
but  for  the  sake  of  clarity  they  are  shown  with  an  offset 


Figure  1. 
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CLOUD  -TO-GROUND  DISCHARGE 


HORIZONTALLY  POLARIZED  ENERGY  IN  10  KHr  BAND 


CLOUD-TO-GROUND  DISCHARGE 
CLOUD -TO -CLOUD  DISCHARGE 


Figure 


A  STUOY  OF  THE  SECOND-ORDER  STATISTICAL 
PROPERTIES  OF  THUNDERSTORM  NOISE 


Richard  L.  Johnson 

School  of  Electrical  Engineering 
Oklahoma  State  University 
Stillwater,  Oklahoma  74074 

Measurements  were  taken  of  the  electromagnetic  field  radiated 
from  two  thunderstorms  which  were  separated  in  time  by  three  days. 
Analysis  of  two  data  segments  from  the  first  storm  and  one  segment  from 
the  second  storm  revealed  that  the  signature  fit  a  wide  sense  stationary 
model;  moreover,  estimates  of  the  autocorrelation  and  power  spectral 
density  functions  indicate  that  the  process  satisfies  a  condition  of 
local  ergodicity.  The  study  culminates  in  a  second-order  statistical 
description  which  appears  to  be  valid  in  an  ensemble  sense 

As  a  part  of  the  weather  phenomena  research  work  sponsored  by  the 
Department  of  Defense  under  Project  Themis  (A  Center  for  Description  of 
Environmental  Conditions,  Themis  Project  No.  129),  atmospheric  noise 
measurements  were  made  in  the  presence  of  thunderstorm  activity  occurr¬ 
ing  in  the  vicinity  of  Rapid  City,  South  Dakota  in  July  1969  The 
vertically  polarized  electromagnetic  field  radiated  from  the  storm  was 
sensed  by  a  1525  meter  vertical  whip  antenna  mounted  atop  the  fuselage 
of  a  D-18  twin  engine  Beechcraft  airplane.  The  data  were  collected  and 
recorded  by  magnetic  tape  on  board  the  airplane  while  the  aircraft  flew 
in  an  elliptical  path  at  an  altitude  of  approximately  5  km  The  flight 
path  was  centered  approximately  30  km  from  the  storm  and  was  executed  by 
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flying  parallel  to  the  storm  for  10  min.,  making  a  180°  turn,  and  flying 
in  the  opposite  direction  for  10  min.  The  objective  was  one  of  maintain¬ 
ing  the  path  as  near  constant  as  possible  with  respect  to  the  storm. 

Three  representati ve  data  segments  of  0.75  sec.  duration  were 
selected  for  detailed  analysis.  These  segments  were  characterized  by  a 
relatively  high  density  of  large  amplitude  K-change  pulses,  but  were 
otherwise  arbitrarily  chosen  (for  a  discussion  of  K-change  pulses  see 
Uman  [1969]).  Two  of  the  data  segments  were  taken  from  the  data  collect- 
fed  on  July  14  and  the  third  segment  was  taken  from  the  recorded  data  of 
July  17. 

The  objective  of  the  data  analysis  was  to  produce  a  credible  esti¬ 
mate  of  the  autocorrelation  and  power  spectral  density  functions  by 
serially  reducing  each  data  segment.  In  order  to  effect  this  analysis, 
the  process  was  first  investigated  to  determine  the  degree  of  station- 
arity.  To  test  for  stationarity  in  the  wide  sense,  we  hypothesized  that 
the  sferic  triggering  mechanism  could  be  modeled  by  a  Poisson  impulse 
process.  The  condition  of  wide  sense  stationarity  would  be  determined 
by  whether  or  not  the  Poisson  parameter  were  constant  and  the  sferic 
pulses  bore  reasonable  similarity.  For  illustration,  let  h(t)  charactpr- 
ize  a  single  K-change  pulse  and  let  a  denote  the  Poisson  parameter.  The 
process  described  is  shot  noise,  and  for  a  zero  mean  value,  Papoulis 
[1965]  shows  that  the  autocorrelation  function  is  represented  by 

( t-j , tg )  “  L  ^  ( t>2 )  h(t^  -  tg)]  *  ^  ( tg ) 

where  *  denotes  convolution.  If  \  is  constant,  then  Papoulis  [1965] 
shows  that  the  autocorrelation  depends  only  on  the  parameter  r  s  jt1  -  t^ 
and  is  given  by 

;( •)  *  ■  /  h(i  +  3)  h ( s )de  . 
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Furthermore,  when  the  triggering  mechanism  is  characterized  by  a  constant 
a,  Hogg  and  Craig  [1965]  show  that  the  waiting  time  between  pulses  has  a 
probability  distribution  function  represented  by 


Fw<“> 


r 


0 


< 


1-e 


Aoj 


(jO  <  0 

u)  >  0 


This  implies  that 


Ao)  =  —  1  n[  1  -  Fw(w)]  u  >  0 

and  if  -ln[l  -  F  (w)]  is  plotted  as  a  function  of  w,  the  contancy  of  a 
can  be  tested  by  whether  or  not  the  result  is  a  straight  line. 

Measurements  of  the  waiting  times  between  pulses  were  taken  from 
each  of  the  data  segments  separately,  and  an  empirical  distribution 
function  was  computed*  A  plot  of  -ln[l  -  F(w)]  versus  u,  then,  re- 
vealed  that  a  straight  line  approximation  to  the  data  points  provided  a 
reasonable  fit.  Hence,  we  concluded  that  a  Poisson  model  with  a  con¬ 
stant  parameter  was  a  reasonable  description  of  these  segments  of  the 
storm  signature.  Further,  we  concluded  that  the  data  could  be  reduced 
using  the  methods  of  stationary  analysis 

The  autocorrelation  and  power  spectral  density  functions  were 
estimated  from  each  of  the  three  records.  These  estimates  were  striking¬ 
ly  similar  after  being  normalized  to  the  average  measured  power  on  each 
data  segment.  Because  of  the  close  resemblance  in  the  estimates,  we 
concluded  that  the  process  can  be  credibly  represented  by  computing  a 
sample  mean  based  on  the  individual  curves.  The  computed  mean  of  the 
three  autocorrelation  functions  is  shown  In  Figure  1,  while  the  mean  of 
the  power  spectral  densities  Is  shown  in  Figure  2  Inspection  of  the 
power  spectral  density  plot  reveals  a  peak  at  9  kHz  which  was  expected 
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Figure  2  Averaged  Power  Spectral  Density  Estimate 


The  hump  at  18.75  kHz  results  from  an  interfering  signal  in  the  air¬ 
craft  electrical  system.  The  hump  at  34.5  kHz  was  thought  at  first  to 
be  constructive  Interference  from  ground  reflection  or  from  the  ionosphere; 
however,  this  component  did  not  appear  In  the  power  spectral  density  of 
the  first  data  segment.  Because  there  were  several  sustained  discharges 
of  30  msec  duration  or  greater  in  the  second  and  third  data  segments, 
but  there  were  r.o  discharges  of  this  type  in  the  first  data  segment,  we 
speculated  that  the  sustained  discharges  promote  the  radiation  of  this 
component  although  the  cause  for  this  phenomenon  is  unknown. 

Summarizing,  the  assumption  of  stationarity  in  the  wide  se*  i 
appears  justified  for  data  segments  evidencing  relatively  unif^.m  in* 
tense  sferic  activity.  Using  the  wide  sense  stationary  model,  estimates 
of  the  autocorrelation  and  power  spectral  density  functions  exhibit  the 
ergodic  property  after  being  normalized  to  the  average  measured  power. 
Because  the  data  segments  analyzed  are  believed  to  be  representative,  it 
appears  reasonable  to  assume  that  the  descriptions  presented  are  valid 
in  at.  ensemble  sense  for  data  segments  of  relatively  uniform  intense 
sferic  activity. 
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Suwnary 

Most  of  the  earlier  research  efforts  in  pattern 
recognition  have  bean  Urectad  towards  developing  pro¬ 
cedures  for  learning  to  tecognize  patterns  with  a  per¬ 
fect  teacher.  In  recant  years  considerable  attention 
has  been  given  to  the  prob:  .m  of  learning  without  a 
reacher.  In  between  these  two  vastly  different  class 
of  problem*  is  the  problem  of  learning  to  recognize 
patterns  with  an  imperfect  teacher.  This  paper  is  con¬ 
cerned  with  developing  and  analyzing  a  procedure  for 
learning  to  recognize  patterna  with  an  imperfect  teach¬ 
er. 


A  decision  rule  for  classifying  patterns  with  an 
imperfect  teacher  is  derived.  Ueing  nonparametric  es¬ 
timators  for  the  unknown  densities  appearing  in  the 
decision  rule,  a  orocadure  for  learning  to  recognize 
patterns  with  an  imperfect  teacher  ia  given.  It  ia 
.hawr.  that  the  proposed  learning  ache.  .  has  an  asymp¬ 
totic  average  risk  equal  to  the  Bayes'  minimum  risk, 
tor  non-overlapping  densities,  the  average  asymptotic 
performance  of  the  learning  scheme  ia  better  than  tha 
teacher  and  naareat  neighbor  rule  trained  by  tha  aama 
imperfect  teacher.  Tha  same  is  true  for  overlapping 
densities  if  tha  amount  of  overlap  ia  lass  than  1-1, 

3  being  tba  probability  that  tha  teacher  is  correct. 
Also  it  is  shown  that  for  non-overlapping  densities  tha 
proposed  learning  schema  performs  batter  than  tha 
leacher,  on  tha  average,  after  looking  a  finite  but 
large  number  of  samples.  The  proposed  learning  schema 
simulated  on  the  Computer  for  some  simple  denaity. 

.  .notions  and  the  results  are  presented. 


Introduction 


A  major  atep  common  to  all  pattern  recognition 
problems  consists  of  developing  procedures  which 
laasify  onsarvations  such  that  a  particular  strategy 
.5  optimized.  This  step  can  ba  formulated  as  follows. 
A  set  of  n  measurement  palra  (Xi ,bl ) , . . . ,(Xn,8n)  are 
given  as  sample  (training)  patterns.  Xj(i»l,. . . ,n)  ia 
.1  vector  measurement  drawn  from  one  of  the  R  possible 
^tugorles  8;, .  ..8r.  8i  takes  the  form  when  Xjl  is 
identified  by  the  teacher  as  being  from  category  5k. 
Uter  development  of  a  classification  procedure ,  only 
iPe  measurement  X  ia  available  and  an  estimate  is  de¬ 
sired  of  tha  category  from  whi.h  X  waa  drawn. 

Depend* ng  on  the  nature  of  information  available 
In  the  form  of  •*'■,  tha  problem  of  learning  to  recog- 
i  lie  pattern*  can  o*  subdivided  into  ..ire*  classes, 
if  fll  contains  identification  of  tha  tru*  category  of 
thun  learning  it  acid  to  take  place  with  a  "perfect 
te»ihir" .  if  no  Information  about  the  tru#  category 
Xj  la  available,  then  . die  claas  of  problems  la  re¬ 
ferred  to  as  "learning  without  a  teachmr". 

Between  than*  two  problems  is  tba  problem  of 
"learning  with  an  imperfect  teacher".  Tt '  >  problem 
h..s  received  much  leas  attention;  nevertheless,  many 
situations  fall  into  this  category,  For  txampla,  med¬ 


ical  diagnoses  which  ar*  used  to  determine  the  categor¬ 
ies  into  which  electrocardiogram  records  ar*  to  be 
classified  arc  not  perfect.  Tha  author*  of  this  paper 
war*  lad  into  an  invest lgat ion  of  learning  with  an  im¬ 
perfect  teacher  by  trying  to  classify  sferica  into 
cloud-ta-cloud  or  cloud-to-ground  diacharges  on  the 
basis  of  measurements  of  electromagnetic  signature. 

The  categories  for  the  training  samples  were  identified 
by  visual  obsarvations  which  apparently  contained  soma 
errors. 


This  paper  is  concerned  with  developing  procedures 
for  learning  to  classify  patterns  with  an  imperfect 
teacher  characterized  by 

F(»i|8i)  «  0  >  |  i  i  =  1.....R 

P(8j|8i)  •  (±^>  ;  i,J  *  1 . R;  i  f  j.  (l.a) 

mm  patterna  ar*  assumed  to  be  probabilistic  in  nature 
with  unknown  conditional  probability  density  functions 
with  tha  property  that 


i.j  *  1 . R- 


(l.b) 


A  decision  rule  for  classifying  patterns  with  an 
imperfect  teacher  using  discriminant  functions  of  the 
form  F(8i >  -xJ8j  i*  given.  This  decision  rule  is  shown 
to  he  equivalent  to  a  Bayes*  decision  rule  using  dis¬ 
criminant  functions  of  the  form  P(9i>  fx|ej/  Nonpara¬ 
metric  estimators  *X|ei;n  of  the  unknown  density  fx|$i 
are  proposed  for  laiHung  to  racognize  patterns  with  an 
imperfect  teacher.  Using  ona  suoh  estimator  it  is 
shown  that  tha  proposed  learning  scheme  has  an  average 
asymptotic  risk  equal  to  the  average  Bayes'  (minimum) 
risk,  For  non-overlapping  densities  and  for  densities 
with  overlap  lass  than  (1-0)  it  is  shown  that  the  aver¬ 
age  asymptotic  performance  of  the  learning  scheme  is 
better  than  that  of  the  imperfect  teacher  and  the  near¬ 
est  neighbor  rule  trained  by  the  same  imperfect  teacher. 


The  performance  of  the  learning  scheme  with  a 
finite,  but  largs  number  of  samples  is  also  derived  for 
non-overlapping  densities  and  it  is  shown  that  the 
learning  schema  batters  in  probability  the  performance 
of  tha  teacher  after  looking  at  a  finite  number  of  sam¬ 
ples.  A  somewhat  more  surprising  resu)  Is  that  more 
samples  will  be  required  to  better  the  performance  of 
either  of  tha  mediocre  teacher.  The  proposed  scheme 
was  simulated  on  a  computer  to  obtain  the  average  risk 
for  soma  simple  density  functions. 


Tha  Decision  Rule 


For  probabilistic  patterns  with  known  probability 
distributions,  a  Bayes'  procedure  can  be  used  to  arrive 
at  a  decision  rule  that  optimizes  the  given  strategy. 
The  strategy  to  be  optimized  is  specified  in  terms  of  a 
loss  function  Lij,  defined  for  i,j  *  i,...,R.  The  loss 
function  Lij  represents  the  loss  incurred  whan  a  pat¬ 
tern  actually  belonging  to  oategory  8j  is  misplaced  In¬ 
to  category  8j.  For  a  saro-on#  loss  function  Lij  » 
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l-{j4 ,  where  in  ia  the  kronecker  delta  function,  it 
has  Men  shown*  that  the  Bayes'  procedure  leads  to 
discriainant  functions  of  the  fora. 

\  ‘  P(V  fx|8i  (2) 

P(®i)  is  the  prior  probability  of  category  and 
fX|fli  is  the  probability  density  function  of  pattern 
X  given  that  it  belongs  tc  l[.  A  given  pattern  x  is 
classified  into  category  8|  if 

D  (x)  >  D  (x)  j  =  1, . . . ,R;  j  }  i  (3) 

i  "  j  ~ 

It  is  assusied  in  Equation  2  that  all  information 
relevant  to  P(8£)  and  f£jSi>  (i  *  1,...,R),  were  known. 
In  practice,  often  this  information  is  only  partially 
known.  The  unknown  information  must  be  learned  from 
the  given  set  of  labelled  sample  patterns,  the  inform¬ 
ation  associated  with  °8i  being  estimated  from  samples 
belonging  to  category  6j.  But  due  to  the  imperfect 
teacher,  the  true  categories  of  the  sample  patterns 
are  not  available  to  the  learning  scheme.  The  only 
labeling  information  available  to  the  student  is  one 

of  8} . Sr  provided  by  the  imperfect  teacher.  Hence 

in  order  to  learn  from  these  incorrectly  labeled  sam¬ 
ples,  it  ianecessary  to  derive  a  decision  rule  in 
terms  of  P(8f)  and  i  i  =  1,...,R. 

Theorem  1.  With  an  imperfe-  *  teacher  characterized  by 
Equations  (l.a)  and  (l.b),  a  decision  rule  using  dis¬ 
criminant  functions  of  the  form  08|  =  P(?^)  PX|§£  is 
equivalent  to  a  Bayes1  decision  rule  using  discriminant 
functions  of  the  form  d8j  =  P(8j)  px|9i* 


Proof.  The  above  theorem  can  be  proved  by  showing 
that  D8i<£)  >  DSj(x)  if  and  only  if  DPi(x)  >_  "8j(x); 
thus  establishing  that  the  two  decision  rules  are- 
equivalent . 

Using  Bayes'  theorem  it  follows  that  the  distri¬ 
bution  function  of  X  given  that  X  is  labelled  as  8<  is 
~R 

FX|Si(^®i)  S  k;i  FXt8i,8k(^§i'ek)I'(flkl§i) 

Using  the  condition  given  in  Equation  (l.b)  it  follows 
that 

rils1<dV  ■  j  rx|.k<iiVpl*JV 


•  i  'ji^V 


P(61|»k>P(«k) 


Fxi«1‘il' 9l> "  TaJ  |p<*i>,rsi*l<i|,‘> 

*  j,  p<ek,lr4,rx|.k<il8k»  • 


'll8,1115!1  ‘  (p<V8fx|.1<il*l> 

*  l  P‘V(rrr>'i|,k‘il\»  • 

kjl 

"i/i)  ■  p<V',x|.i‘ilV 

*  l  p|,kHrr-f"x|9k<i|'k)  • 


A  similar  expression  can  be  obtained  for  D8j(x)  and 
from  these  two  eq>>ations  it  follows  that 

Dj  (x)  -  Dj  (x)  =  W^xle  (*. lap 


-  p‘V8,xi«](i|V 
♦  p<V<rrT1,x|,/*lV 

■  <Trir>  <”»  <s>  -  ”,  <«»  ■ 

l  1  3 

Since  0  >  r- by  assumption,  it  follows  from  the  above 
equation  that 


9i  -  “  6j  “ 
as  was  to  be  shown. 


De  (x>  i  Dfl  (*>  . 


If  there  are  only  two  categories  of  patterns  8j 
and  82  and  if  8  >  1/2,  then  classification  can  be  done 
by  evaluating  a  single  discriminant  function 

Vi>  ■  P<fl>  £X],1t-)  -  p(8,>  fxiS2<s.' 

=  (28-1)  tP(81)  fx|g  (x)  -  P(8J)  fx|fl  (x)].  (4) 

A  given  pattern  x  is  assigned  to  8j  if  D~(x)  >  0  and 
82  if  Og(x)  <  0.  From  Equation  (4)  it  cln  be  seen  that 
if  8  <  1/2,  then  changing  the  sign  of  D§(x)  will  lead 
to  an  optimum  classification  procedure.  Also  it  can  be 
seen  that  when  8  =  1/2,  no  classification  will  result 
from  the  above  discriminant  function. 

If  the  density  functions  fxj8i  and  if  ®2  °°  not 
overlap,  then  a  discriminant  function  of  the  form 

i)'g(x)  =  fx | g  (x)  -  fxjg  (x)  (5) 

is  optimum  for  dichotomizing  patterns.  In  fact, 

fx|S1ul'i>  -  'xlij'iil8!1  *  {flp(0i,fx|ei£i!ei) 

+  (1  -  6 )P(6 2 )f x | q  u|e2) 

- —  {(1  -  8)P(e.)fy,.  (x|e  ) 

p(e2)  1  -|8i  “  1 

♦  PP(e2)fX|e  (x|e2)) 


- - <P(6l)fYlfi  <XI61  ) 

p(e1)P(§2)  1  *lei  1 

C0P(6 ^ )  *  (1  '  8)P(§1)] 

-  P(82)fx|62(x|e2) 


C6P(e1)  -  (1  -  s)p(§2)]) 


tp(8.)fy,.  (x|e  )[(28  -  i)P(eJ3 
p(S1)P(82)  1  ^®i  1  2 

-  P(62)fxje2(x|82)[(28-l)P(61)]} 
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Me  >P(02> 


—  (28  -  <x|«, )  -  fv.A 

P(ex)P(92)  *iei“  1  — 1®2  —  2 

Hence 

P(8,  )P(0.) 

D-.(x)  =  — — -  <28-l)[f  ,  (x|8  )  -  f  ,  (x|9  )}  . 

6  P(8  )P(6  )  ->91  "  1  -|92  “  2 


As  in  Equation  (4)  if  8  <  i/2,  then  -  D'g(x)  instead 
of  O'jj(x)  can  be  used  for  classifying  patterns. 


Also,  it  can  be  seen  from  Equation  (5)  that  D'g()0 
does  not  involve  the  exact  value  of  8.  the  only  in¬ 
formation  required  is  whether  0  >  1/2  or  0  <  1/2.  The 
same  is  true  of  Dgtx),  for  overlapping  densities. 


tional  samples  become  available,  these  coefficients  can 
be  updated  through  a  recursive  equation.  Hence  the 
sample  patterns  need  not  be  stored  permanently.  One  of 
the  unsolved  problems  associated  with  Sprecht's  method 
of  estimation  is  the  number  of  terms  that  one  needs  to 
include  in  the  polynomial.  For  a  desired  accuracy,  it 
My  be  feasible  to  derive  a  relationship  involving  the 
number  of  sample  patterns  the  dimension  of  the  pattern 
space  and  the  unknown  density  function. 

Under  certain  regularity  conditions,  the  above 
mentioned  estimators  have  been  shown2’  3*  *  to  be  con¬ 
sistent  and  asymptotically  normally  distributed.  Using 
the  estimated  densities  in  the  discriminant  function 
given  in  Equation  (4),  the  proposed  learning  scheme  is: 

(1)  Using  the  incorrectly  Identified  sample  patterns, 


Learning  With  An  Imperfect  Teacher 

The  decision  rule  derived  in  Theorem  1  involves 
P( 6 ^ )  and  ^x|6^;  i  =  1,...,R.  The  samples  are  given 

with  labels  9 t . Hence  any  unknown  information 

associated  with  can  now  be  estimated  (learned) 
through  the  samples  carrying  the  label  Sf.  In  the  re¬ 
mainder  of  this  paper  it  will  be  assumed  thatR  -  2, 
and  that  the  prior  probabilities  P(@i)  and  F(02)  are 
known.  (If  unknown,  P(§j)  and  P(02)  can  be  estim'”ed 
by  the  number  of  times  the  labels  fij,  and  02  occur  re¬ 
lative  to  the  total  number  of  samples  used.) 


*1 . h . 42’  astimat0  ^  and  fx|§2; 

(2)  Using  estimators  fviS  (x|§.)  and  I  (x|0„) 

compute  — <8linX  ”  1  *Je2in2  "  2 

s«‘i>  *  ‘ 

(3)  Assign  x  to 


8X  if  Dg(x)  >  0  , 


The  unknown  densities  ^x|§j  and  *xjt)2  can  be  es¬ 
timated  from  a  set  of  incorrectly  labeled  independent 
sample  patterns  Xj , . .  .Xpi  1  V.i , . .  .Yp2.  The  Xj's  are 
sample  patterns  with  labels  Sj  and  are  identically 
distributed  random  vectors  with  a  common  probability 
density  function  I ® l >  Similarly  the  Yj. 's  are  pat¬ 
terns  with  labels  <j2  and  identically  distributed  with 
a  common  probability  density  function  ^X|82. 


Using  nonparametric  estimators  proposed  and  ana¬ 
lyzed  by  Parzen2  and  Murthy3,  an  estimate  of  ^Xj8i 
( x j  6 1 )  based  on  the  sample  patterns  Xj . £pi  is 


In  Equations  (6)  and  (7)  p  is  the  dimension  of  the 
pattern  space. 


One  of  the  disadvantages  of  this  form  of  estima¬ 
tion  is  that  all  the  sample  patterns  need  to  be  stored 
This  difficulty  can  be  overcome  by  using  the  polynom¬ 
ial  approximation  suggested  by  Specht  (4)  of  the  form. 

fwis  1  — ~ — “  [Exp  -  (■UJ?)3  d\x).  (8) 

ur(2lir 

nl 

In  the  above  estimator,  D  (x)  is  a  polynomail  with  a 
finite  number  of  terms  whose  coef f icients  are  computed 
using  the  n;  sample  patterns  labelled  as  8j.  As  addi¬ 


and 


8 „  if  D»(x)<  0  . 

i.  8  — 


(9) 


Performance  of  the  Proposed  Learning  Scheme 


Asymptotic  Performance.  The  asymptotic  performance  of 
the  proposed  learning  scheme  car.  be  analyzed  using  the 
consistency  properties  of  the  estimators  fig  and 
f  i-  .  _lul*nl 


— 1  2’”2 
Theorem  2. 


The  proposed  learning  scheme  has  an  average 


asymptotic  risk  equal  to  the  average  Bayes  risk. 


Proof  ■  It  has  been  shown  by  Murthy  3  that  ^X.i  ®  1  »ni 


with  Probability  1  and 
as  n, — with  Probability  1. 

*^0  as  nj ,  n2 - 


,  —  •  ^XjOi  as  nj — 

fx|62ln7 - *fX|82  _ 

Hence  with  Probability  one  °9 
Therefore  with  Probability  one,  the  proposed  learning 
scheme  classifies  a  given  pattern  £  into  the  same  cate¬ 
gory  into  which  a  Bayes  machine  would  place  x.  Hence 
the  conditional  risk  rs(x;  ni ,  n2)  associated  with 
classifying  x  according  to  (9),  converges  to  the  Bayes1 
conditional  risk,  r*(x),  with  Probability  one,  i.e 
rs(x;  nlt  n2) - *r*(x)  as  rij,  n2' - *“  with  Probabil¬ 

ity  one .  Hence 


Efrg(x;  ni,  n2>)  s  r>''(x)  as  r^,  n2 - »  (10) 

For  a  symmetrical  loss  function  the  Bayes'  conditional 
risk  is  given  by 


r»(x)  =  min(P(81|x)  ,  P(82jg))  .  (11) 

Taking  the  average  on  both  sides  of  Equation  (10)  with 
respect  to  fx(*)(  the  average  risk  associated  with 
learning  witTT  an  imperfect  teacher  is 
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R  =  /  r»'(x)f  (x)dx 

9  “a  ' 

■  Mv  i  ,«|«1<s|,i)Ji 

*  fV  i_  <“> 


v  <i  ‘  "V'xi.^iv  -  *»d 

»S  '  <i  :  ■ 

The  right  hand  side  of  Equation  (12)  is  the  Bayes’ 
risk  R*,  hence,  as  was  to  ha  shown, 

=  R*  (13) 

s 

The  averse^  sas’  'or  the  teacher  denoted  by  Rt  is 

R  =  1  -  8  (14) 

and  the  average  asymptotic  risk  for  che  nearest  neigh¬ 
bor  rule,  Rn,  has  been  shown  5  to  be  bounded  by 

(1  -  6)  +  (28  -  1)  R*  <  R  < 

—  n  — 

(1  ■  8)  t  (26  -  i)[2R*(l  -  R*)]  (IS) 

For  non-overlapping  densities  RA  =  0  and  from 
Equations  (13),  (14)  and  (15)  it  can  be  seen  that  the 
proposed  learning  scheme  has  a  ower  average  risk  and 
hence  on  the  average  performs  better  than  the  teacher 
and  the  nearest  neighbor  rule.  Also  if  the  overlap 
in  densities  is  small,  i.e.  if  R*  <  1  -  8,  then  again 
the  proposed  learning  scheme  is  better  than  the  teach¬ 
er  and  the  nearest  neighbor  rule.  In  both  cases  the 
learning  scheme  (student)  becomes  smarter  than  the 
teacher . 

Large  Sample  Performance  of  the  Learning  Scheme.  In 
the  previous  sections  of  the  asymptotic  performance  of 
the  proposed  learning  scheme  was  analyzed  and  it  was 
shown  that  if  the  density  functions  do  not  overlap 
then,  on  the  average,  the  learning  scheme  performs 
better  than  the  teacher.  In  this  section  it  will  be 
shown  that  tins  learning  scheme  performs  better  than 
the  teacher,  on  the  average,  after  being  presented 
with  a  finite  but  large  number  cf  sample  patterns 
& . Xp2i  y,....,in2. 

From  Lqu  > t ion  (&),  tlx  learning  scheme  for  class¬ 
ifying  pattenr.*  when  the  density  functions  do  not  over¬ 
lap  f  s : 


Astir,!!  •/  to  6  it  f.. 


L’ni 


(^V  >  fX|boln2(^V  (16) 


Asaig-  x  to  ».  i.  f,<j(5  fxJe^CKly.UT) 

A  given  pattern  \  t com  category  6]  is  therefore  class¬ 
ified  correctly  it  (16)  is  satisfied  arid  will  be  in¬ 
correct  zy  u  t 17)  holds.  Assigning  a  value  of  tl  for 
correct  ci.ro  1 1 icat ion  and  0  for  incorrect  classifica¬ 
tion,  tin:  gain  associated  with  ciassilying  a  pattern  x 
form  a  category  lij  is 

gs(x|Ol;n1,,r,/  o  ‘,iix|ejL;ni‘il»i>>Jx|e2in2(il82,lieil) 


For  u::t iiRjtora  cf  the  form  given  rn  Equa- 
vl.)  aid  (7  1,  Murihv  ’  has  shown  that  as  nj  ,  nj~ 


These  results  can  be  used  to  derive  a  lower  bound  for 

*8(-l6l;V  n2)- 

Theorem  3.  If  (19)  and  (oct  bolds,  then  as  n;  and 
n2 — i  for  x  from  category  o l 

>  ?x!92in2(il®2)^e6l}  iL(,."i’n2’i) 


L(g,n  ,n,x)  =  [1  -  — — - 3 

^T'xje^V 
c,(i  -  8) 

x  Cl  .  - ] 


■S’ 


p(ex)  ^  p(«1)p(82)  2  4 

Cl  =  nil  CPfe1Jp(92)(2B  -  u]  ^F 


*  Pt^)  -  X,  (2l€)p 

P(0.)  P(6. )P(§  ) 

c^  =  ^  l^T^7rrrT]  ^F 


Proof.  Let 

»  ■  '  'ile/dnl  >  o 

and  let 

Di  =  {*:  fx|e1(-^8i)  >  0}  • 

P{}xl§1in1(^l)  >  fX|fl2;n2(ii®2)lie8l} 

-  F{^x|e1;n1(-I8i)  '  fx|ejL(— *®1J I  *  2  Pi 

•  fX|fl*2(i|S2)|  4  2  i  ieV  • 

A  A  A  A 

Since  the  estimators  and  J  62  ;n2  are  inde 

pendent,  the  right  hand"  side  of  the  inequality  becomes 


Kt*IX|riiinl 


fVll  r.'  - - - - -  fv|,?  (19) 

— 1  /i^u/n>r  ^81 


.n/ilV  ' 

fx|e. 

<x|e1)J  < 

D  i 

2  1 

xe61) 

’■"xiS,; 

fx|e. 

(x|e2)|  < 

2  i 

i } 

fh'xis,, 

A_| 

(xieji2-- 

D2 

4  ! 

i  xe01) 

Pt|’x|0;; 

fx|e? 

(x|6J|2< 

£  i 
4  1 

I  xe91).(23) 

Let  us  consider 

i./d’d  - 

fxja, 

A 

(x|§  ) |2< 

£ 

--  1  -  P(|f 

UJ.w.'sl*: 

,)  -  f 

)!2> 

4> 

)  -  - 

)|2) 

t— 

■*> 

D* 

(?4) 

•'hl2’n2  ‘  1  '  4T,(2/ii')P  ‘2*1*2  (20) 


Ly  Chebyshev's  inequality,  from  Equation  (19) 


=  - — T-  fylfl  (lt|e,  )  (25) 

^(2.'T)P  *»«!  “  1 

Substituting  (25)  in  (24),  the  right  hand  side  of  (24) 
becomes 

'ilV-'V  , 

>  [l - ± -  .  JL]  .  (26) 

/tTx  (2/fi)p  D2 

Similarly 

rIl,iiS2;»;^V  -  'x|i^lS!'|2  *  T* 

>  tl  .  _£ - -  -1]  .  (27) 

JtT7  (2xfr)p  D2 

If  .’tfl  then  xsD^,  and  on 

P(6  ) 

fv|e  (*IV  =  6  ~ ~  fx|6  (*IV 

-1  l  p(e1 )  -|9i  1 

P(8.) 

fi|ijU|.2)  .  u  -  a)  —  ^1,^,1.,) 


P(0  )P(8  ) 

D=  - i - L.  (26  -  i)f  |  (x|0  )  .  (28) 

Ptei)P(02)  -  -l“i 

Substituting  (26),  (27)  and  (28)  in  (13),  one  obtains 

P(ixje:n,^®l)>fx|9,in„(^®2^>;t:Vl 

—  'll  —  J  L 

C  B  C  (1  -  0) 

[1  -  — - - - J[1 - - - 3 

,ni  fx|e1(2ilt,i>  fx|ei(^>Qi) 


C2(l  -  B) 


( 2i/n  )p 


P(81)  P(0i)P(8o) 

“‘w.pK./V- 


P(91)  P(6l)P(8?)  2  4 

LP(9lyP<62)(2B  --lY] 


P(9  )  ns1jr'D2  ' 

2 

and  hence  the  proof  of  the  theorem. 


Substituting  the  results  of  Theorem  3  in  Equation 
(18',  the  gain  of  the  learning  system  associated  with 
classifying  a  pattern  x  from  category  8;  becomes 

o  a 

g  (x  8  ;n  ,n  )  >  [1  •  — - 3 

1  1  2  '  ^‘xle/ilV 

C„(l  -  B) 

x  U - L - j 

^2  ,x|«2(i|#2) 

A  similar  expression  can  bo  derived  for  the  gain  asso¬ 
ciated  with  classifying  a  sample  x  from  category  8j. 

The  gain  of  the  teacher  for  classifying  x  from  category 
8 1  is 

V-*0!.)  '  8 


[1 - ± - ][! - - - ]  >  B  . 

fx|e,<-^ei)  ^fx|e,(ilV 


one  can  solve  for  n[  and  nj,  the  sample  size  required 
by  the  learning  scheme  to  better  the  performance  of  the 
teacher.  Hence  the  justification  for  the  claim  that, 
in  the  case  of  non-overlapping  densities,  the  learning 
scheme  performs  better  than  the  teacher  on  the  average 
after  looking  at  a  finite  but  large  number  of  sample 
patterns . 

The  sample  size  required  by  the  learning  scheme  to 
better  the  performance  of  the  teacher  is  given  below  in 
Table  I.  The  densities  used  in  these  sample  calcula¬ 
tions  are  assumed  to  be  uniformly  distributed  over  non- 
overlapping  intervals  of  unit  length,  with  P(8  )  = 

P(02)  =  1/2. 

TABLE  I 

SAMPLE  SIZE  REQUIRED  3Y  THE  LEARNING  SCHEME  TO  PERFORM 
BET1ER  THAN  THE  TEACHER 


0.60  I  0.70  0.80  1  0,50  j  0.95 


Approximate  j  j  j 

Sample  Size  j  5000  j  ,1800  j  500  300  1600 


A  rather  surprising  inference  that  can  be  derived 
from  this  example  is  that  the  learning  scheme  requires 
less  samples  to  better  the  performance  of  a  mediocre 
teacher  than  the  number  of  samples  it  requires  to  Let¬ 
ter  either  a  very  bad  or  a  very  good  teacher,  i.e.  it 
is  easier  to  better  a  mediocre  teacher. 

By  differentiating  with  respect  to  3  it  can  be 
shown8  that  the  gain  increases  as  0  increases,  thus 
showing  that  the  knowledge  acquired  at  a  given  stage  of 
learning  is  greater  with  a  better  teacher. 


SIMULATIONS 

The  proposed  learning  scheme  was  simulated  on  the  IBM- 
360  computer  for  both  overlapping  and  non-overlapping 
density  functions.  The  various  density  functions  used 
in  the  simulations  are  shown  in  Figures  1  and  2.  The 
prior  probabilities  for  the  categories  v>  re  net  equal 
to  1/2.  For  each  value  of  3,  the  densities  were  esti¬ 
mated  using  75  and  100  samples  (n;  +  r.;  =  75,100).  The 
risk  for  the  learning  scheme  wan  caiculatec  base-  st> 
the  classification  of  fifty  test  samples,  the  li . . 
function  being  tl  tor  incorrect  classification  .:.d  0 
for  correct  classification.  For  each  v«;.,e  cd  3,  ten 
luns  were  made  and  the  average  ri-.k  tor  the  learning 
scheme  was  calculated.  The  result;)  of  the  simulations 
are  shown  in  Figures  3  and  4. 

Figure  3  shows  the  plot  of  average  risk  versus  8 
tor  the  learning  scheme  for  non-overlap;. ing  densities 
shown  in  Figure  I.  The  Bayes*  risk  R*  tor  non-overlap¬ 
ping  densities  in  zero  and  the  average  risk  i or  the 
imperfect  teacher  is  (1  -  B) .  Figure  4  shows  the  same 
pint  for  overlapping  densities  shown  in  Figure  2.  The 
Bayes*  risk  now  is  0.125  and  the  average  risk  for  the 


By  setting 


teacher  It  (1  -  3) 

Fro*  Figures  3  And  4  the  following  theoretical 
results  can  be  verified; 

(1)  Tha  average  asymptotic  rlak  for  tba  laarnlng 
schema  convargas  to  tha  Bays*'  rlak, 

(2)  For  non- ova r lapping  danaitlaa  tha  laarnlng 
schema  battara  tha  iaparfact  taachar,  and 
tha  Nearest  Neighbor  Rula  aftar  looking  at  a 
finita  number  of  aaapla.  pattama . 

(3)  For  ovar lapping  danaitlaa ,  tha  laarnlng 
scheme  la  battar  than  tha  taachar  if 

R*  <  1  -  8.  In  Figure  4,  th  a  corraaponda 
to  0  <  0.875. 

(4)  For  a  givan  numbar  of  training  samples,  tha 
avaraga  risk  dacraaaaa  aa  0  increases. 

It  must  ba  point ad  out  hara  that  tha  plota  rapra- 
aant  only  tha  "avaraga"  performance  of  tha  laarnlng 
system.  On  any  givan  set  of  sample*  tha  performance  of 
tha  laarnlng  achaaM  will  dapand  on  tha  nuiri>er  of  cor- 
ractly  labalad  aaaplaa.  If  a  particular  sequence  of 
aaapla  pattarna  had  too  many  lncorract  labels,  than  tha 
parformanca  of  tha  laarnlng  achaaa  will  ba  woraa  than 
tha  "avaraga"  parforaanca. 


4.  Spracht.  "Polynomial  Diacrlalnant  Functions." 

IEEE  Transact Iooj  on  Electronic  Computers.  Juna. 

iW,  p.p.  TFttTT  - *** - 

5.  Whitney,  A.  k. ,  Dwyer  III,  S.  J.  "Parforaanca  and 
Implementation  of  tha  k  -  Naarast  Naighbor  Daciaion 
Rula  with  Incorractly  Idantiflad  Training  Suplti." 
Presented  at  tha  Fourth  Annual  Allarton  Conference 
on  Circuit  and  System  fhaory. 

6.  Shanaugaa,  K.  "Learning  to  Racognisa  Pattama 
kith  an  Iaparfact  Taachar."  Ph.D.  Dissertation, 
Oklahoma  Stata  University,  1970. 


Conclualona 


A  achaaa  for  laarnlng  to  racognisa  pattama  with 
an  iaparfact  taachar  hat  baan  propoatd .  Tha  proposed 
learning  achaaa  aakaa  use  of  patterns  Incorractly 
labalad  by  tha  iaparfact  taachar.  Tha  only  knowledge 
about  tha  taachar  that  la  naadad  la  whsther  0  (0  is 

tha  probability  that  tha  taachar  labala  a  saapla  cor- 
rsctly)  la  graatar  than  or  lata  than  1/2.  Using 
Spracht  * s  approximation,  it  la  posslbls  to  make  tha 
laarnlng  taka  place  serially.  Tha  proposed  learning 
achaaa  has  an  average  asymptotic  risk  equal  to  tha 
Bayaa'  (minimum)  risk.  If  tha  density  functions  in¬ 
volved  do  not  overlap,  than  tha  proposed  learning 
achaaa  parforas  battar  than  tha  iaparfact  taachar  and 
tha  single  nearest  naighbor  rula  using  tha  aaaa  aaapla 
pattarna.  kith  overlapping  density  functions,  if  tha 
aaount  of  overlap  ia  lass  than  (1  -  0),  tha  avaraga 
asymptotic  parforaanca  of  tha  proposed  learning  scheme 
.»  »till  batter  than  that  of  tha  taachar  and  tha  naar¬ 
ast  naighbor  rula. 
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AN  ERROR  CORRECTING  PROCEDURE  iOR 
LEARNING  WITH  AN  IMPERFECT  TEACHER 


K.  Shanraugam,  Member,  IEEE  and  A.M.  Breipohl,  Member,  IEEE 

ABSTRACT 

Supervised  learning  in  pattern  recognition  problems  takes  place 
through  the  use  of  a  set  of  labeled  sample  patterns,  the  labels  being 
provided  by  a  "teacher".  In  most  of  the  procedures  for  learning  with  a 
teacher,  it  is  commonly  assumed  that  the  teacher  is  perfect,  i.e.  the 
labels  of  the  sample  patterns  are  always  correct.  However,  there  are 
many  circumstances  in  which  the  patterns  used  for  learning  are  occasion¬ 
ally  mislabeled.  This  paper  is  concerned  with  developing  a  procedure  for 
learning  with  an  imperfect  teacher,  who  occasionally  mislabels  some  of 
the  learning  patterns. 

The  proposed  error  correction  scheme  is  based  on  a  nonparametric 
learning  scheme.  The  error  correction  consists  of  questioning  and  cor¬ 
recting  the  labels  provided  by  the  imperfect  teacher,  using  a  threshold 
in  the  correction  scheme.  The  use  of  threshold  facilitates  control  over 
the  amount  of  correction  and  provides  a  simple  method  for  combining  the 
knowledge  acquired  by  the  learning  scheme  with  that  provided  by  the 
teacher.  Expressions  for  the  threshold  are  derived  and  the  properties 
of  the  proposed  error  correction  scheme  are  discussed.  Through  computer 
simulations,  the  performance  of  the  proposed  error  correction  scheme  is 
compared  with  that  of  an  identical  learning  scheme  withou.  error  correct¬ 
ion. 
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I .  INTRODUCTION 


The  problem  of  learning  with  an  imperfect  teacher  investigated  in 
this  paper  consists  of  the  following.  A  set  of  n  measurement  pairs 
(X^e1), . . . ,(Xn,dn)  are  given  as  learning  observations.  X^,(i  =  l,...n) 
is  a  vector  measurement  drawn  from  one  of  the  two  possible  categories 
0^ »  02"  The  label  01(i  =  l,...tn)  takes  the  form  0^  or  02  depending 
whether  the  teacher  identifies  X^  as  coming  from  category  0^  or 
respectively.  Based  on  this  set  of  incorrectly  labeled  learning  obser¬ 
vations,  we  want  to  learn  to  classify  new  observations  into  0^  or  02 
with  minimum  probability  of  misclassif ication. 

The  imperfect  teacher  provides  the  labels  on  the  sample  patterns 
according  to  the  following  probabilities. 


P ( 0 i  1 0 i )  =  e  >  1/2  i  =  1,2 

PC^je.)  =  l-B  i,  j  =  1,2;  i|j  (1) 


The  patterns  are  probabilistic  in  nature  with  unknown  conditional  proba¬ 
bility  density  functions  fx|e^  and  f x 1 6 2 *  Part*cuiar  functional  form 
for  these  density  functions  will  be  assumed.  However,  it  will  be  assumed 
that  the  density  functions  have  disjoint  supports.  Also  it  is  assumed 
that 


^18.,^  a  fx|ei 


i,  j  *  1,2. 


(2) 


Many  of  the  procedures  for  learning  with  a  perfect  teacher  have 
been  investigated  for  use  with  an  imperfect  teacher  [1,2].  R.  0.  Duda 
and  R.  C.  Singleton  [3]  investigated  the  performance  a  threshold  lo 
gic  unit  trained  with  an  imperfect  teacher.  They  have  shown  that  for 
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orthogonal  patterns,  the  average  weight  vector  converges  to  a  solution 
vector  for  the  correctly  labeled  pattern  set.  A.  W.  Whitney  and  S.  J. 
Dwyer  III  [4]  analyzed  the  performance  of  the  k-nearest  neighbor  rule 
with  an  imperfect  teacher  and  obtained  error  bounds  for  the  performance. 
The  problem  of  learning  without  a  teacher  has  been  formulated  as  learn¬ 
ing  with  an  imperfect  (probabilistic)  teacher  and  a  Bayesian  reproducing 
estimation  procedure  has  been  developed  for  this  problem  by  A.  K.  Agra- 
wala  [5]. 

The  authors  of  this  investigation  have  proposed  [6]  a  nonparametric 
scheme  for  learning  with  an  imperfect  teacher,  which  asymptotically 
performs  better  than  its  own  imperfect  teacher.  Since  the  learning 
scheme  becomes  better  than  the  teacher,  the  authors  were  motivated 
towards  using  the  learning  scheme's  own  knowledge  to  correct  the  errors 
in  the  labels  provided  by  the  teacher.  The  result  is  an  error  correct¬ 
ing  scheme  for  learning  with  an  imperfect  teacher.  The  proposed  scheme 
uses  a  threshold  in  the  correction  loop.  The  use  of  threshold  provides 
control  over  the  amount  of  correction  and  also  provides  a  simple  way  for 
combining  the  learning  scheme's  knowledge  with  the  knowledge  of  its 
teacher.  Also  the  use  of  threshold  facilitates  a  gradual  phasing  out  of 
the  teacher  as  the  learning  scheme  acquires  moire  and  more  knowledge. 
Expressions  for  the  threshold  are  derived  and  the  properties  of  the 
learning  scheme  are  discussed.  Through  computer  simulations,  the  per¬ 
formance  of  the  error  correcting  scheme  is  compared  with  the  performance 
of  an  identical  learning  scheme  using  no  error  correction. 
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II.  LEARNING  WITH  AN  IMPERFECT  TEACHER 


For  nonoverlapping  densities  f^|^  an<*  1 62 *  *  <**scr*m*nant  punc_ 
tion  of  the  form 

Vx)  =  fx|e1  '  fx|e2  (3) 

can  be  used  to  classify  a  pattern  X  into  0^  or  02  with  a  probability  of 
misclassification  equal  to  zero.  The  unknown  density  functions 
can  be  learned  (estimated)  from  the  sample  patterns  which  belong  to  cat¬ 
egory  However,  due  to  the  randomness  of  the  labeling  of  the  teacher, 

the  true  categories  of  the  sample  patterns  are  not  known.  The  only  lab¬ 
eling  information  available  is  one  of  0^  or  §2-  In  order  to  learn  to 
recognize  patterns  from  these  incorrectly  labeled  samples,  it  is  neces¬ 
sary  to  have  a  decision  rule  in  terms  of  fx|^  an<*  ^a|02  rathar  than  *n 
terms  of  f*^  and 

with  an  imperfect  teacher  characterized  by  Equation  (1)  and  with 
non-overlapping  densities,  the  discriminant  function 

#i<X>  *  fX|«1  -  fx|«j 

is  equivalent  to  the  discriminant  function  Dg(X)  defined  in  Equation  (3). 
In  fact,  it  can  be  shown  [63  that 


fx|.l  ‘  ^7  (6P(V  fx|0A  *  a-*»<V  fx|e2> 


f  *  — —  <(1-S)P<»  )  f  ,  ♦  bP(6,)  fXi0  } 

X'°2  P(«2)  1  X|ei  2  '®2 


and  hence 
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p(e  )  p(e  ) 

DS(X)  =  - = - —  <2B-1)D.(X). 

6  P(6  )  P(§2> 


Since  B  >  1/2,  Equation  (?)  implies  that 


Dg(X)  >_  0 


D0(X)  >_  0 


and  hence  the  equivalence  of  the  two  discriminant  functions. 

The  unknown  density  functions  in  the  discriminant  function  D*(X) 
are  | ©x  an<*  *X|e  an<*  t*iese  can  estimated  from  the  given  set  of 
sample  patterns  carrying  labels  0^  and  6^  r«spe  :tively.  Using  nonpara- 
metric  estimators  proposed  and  analyzed  by  Parzen  [7]  and  Murthy  [8],  an 
estimate  of  f^j-  (xJS^)  based  on  the  sample  patterns  labeled 


as  6^  is 


i  1 

fvl*  n(x|fi,)a~  I  — ~r  Exp{ 


•[x  -  *k3*[x  -  ){jc](n,)1 


•}  . 


(2n)2 


and  an  estimate  of  fv)*  (x|(L)  based  on  the  sample  patterns  Y Y 

X I  o  i  in. 


labeled  as  02  is 


f*!5  •  „  <x  3  E  — ; —z 

x'e2,n2  2  /Tin  £ 

n2  i  i  (2{1)2 


-Cx  -  Y.]*Cx  -  Y.](n  )F 
Exp  { - - - t - i - }  .  19) 


In  Equations  (8)  and  (9)  p  is  the  dimension  of  the  pattern  space  and  T 
indicates  transpose.  A  multivariate  normal  density  function  was  chosen 
as  a  kernel  in  the  estimators  since  this  would  facilitate  the  use  of  a 
polynomial  approximation  suggested  by  Sprecht  [9].  The  polynomial  ap¬ 
proximation  to  the  estimators  is  easy  to  implement  on  the  computer  and 
results  in  an  appreciable  reduction  in  the  s.  'rage  requirements. 

Substituting  the  estimated  densities  in  Equation  (“),  a  procedure 
for  learning  to  recognize  patterns  using  a  set  incorrectly  labeled 
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patterns  is: 

(1)  From  the  given  sst  of  labeled  patterns,  estimate  f^jg^  an<* 
fx|e2  4ccord^n8  t0  Equations  (8)  and  (9). 

(2)  Using  the  estimated  density  functions,  compute 


De(x) 


xl0iini 


-  f 


X 1 9  2  ;n2 


(.3)  Assign  X  to 


8  if  Dg(X)  >  0 

and  to 

02  if  Dg(X)  <  0  (10) 

Under  certain  regularity  conditions,  the  estimates  given  in  Equa¬ 
tions  (8)  and  (9)  have  been  shown  to  be  consistent  and  asymptotically 
normally  distributed  [7,8].  As  a  consequence  of  the  consistency  proper¬ 
ties  of  the  estimators  it  follows  that,  with  probability  one 


L§(X)  “  fx|§1;n1  “  fX|§2;n2 


D«(X)  as  n  ,  n. 


Hence  in  the  asymptotic  case,  the  proposed  learning  scheme  places  n 
patter*.  X  into  the  same  category  as  a  scheme  using  a  Bayes  procedure, 
with  probability  one.  For  a  loss  function  of  +1  for  misclassification 
and  0  for  correct  classification,  the  average  asymptotic  risk  for  the 
learning  scheme  is  zero.  The  average  risk  for  the  teacher  is  1-B  >  0. 
Hence  the  proposed  learning  scheme  is  better  than  the  teacher  in  the 
asymptotic  case. 

f.ince  the  learning  scheme  performs  better  than  its  teacher  after 
looking  at  a  large  number  of  samples,  the  knowledge  gained  by  the  learn¬ 
ing  scheme  might  be  used  to  verify  and  perhaps  correct  the  label  provided 
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by  the  teacher.  Such  corrections,  if  done  successfully,  could  result 
in  a  lesser  number  of  incorrect  labels  on  the  learning  observations  and 
hence  lead  to  better  performance.  The  remainder  of  this  paper  is  de¬ 
voted  to  developing  such  an  error  correcting  procedure. 
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III.  ERROR  CORRECTION 


Model: 

The  authors'  motivation  for  considering  an  error  correcting  learn¬ 
ing  procedure  comes  from  an  example  that  is  of  common  occurrence  in 
classrooms.  Such  an  example  is  the  attempt  of  a  student  to  question  and 
possibly  correct  errors  made  by  his  teacher.  In  spite  of  the  fact  that 
much  of  the  student's  knowledge  is  derived  from  his  teacher,  he  is  still 
able  to  use  this  knowledge  to  occasionally  correct  his  teacher  and  also 
provide  answers  to  certain  questions  for  which  his  teacher  may  not  know 
the  correct  answer.  Hence  it  seems  that  such  questioning  and  possibly 
correcting  the  labeling  information  supplied  by  the  teacher  in  pattern 
recognition  problems  is  all  too  relevant  especially  if  the  teacher  is 
known  to  be  imperfect. 

The  model  for  our  error  correcting  scheme  is  shown  in  Figure  1. 

The  block  marked  student  is  the  learning  scheme  described  in  the  previous 
section,  capable  of  learning  from  a  set  of  labeled  sample  patterns.  The 
teacher  is  characterized  probabilistically  in  Equation  (1).  When  a 
sample  observation  X  is  presented,  the  student  provides  a  label  for  the 
observation  based  on  his  present  knowledge  (i.e.  based  on  the  latest 
estimate  Dg  of  Che  discriminant  function  Dg).  The  label  provided  by 
the  student  is  8  if  Dg(X)  i.  0  and  §2  if  8g(X)  <  0.  The  teacher  also 
provides  a  label  for  X  according  to  Equation  (1).  We  propose  that  the 
error  correction  scheme  compare  these  two  labels  and  change  the  label 
provided  by  the  teacher  according  to  the  following  algorithm: 
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(i)  Accept  the  label  provided  by  the  teacher  if 


|Dg(X)j  =  |£x|fi,;n,*Xl®l}  "  ^X|02;n2(X^2)'  *  T 


1’  1 


(2)  Change  the  label  provided  by  the  teacher  to  6^  if 


”  fx|62ln2(xIV  *  T 

(3)  Change  the  label  provided  by  the  teacher  to  §2  if 


*X|«l^,xli2)  *  fx|6lini<XIV  +  T' 


(11) 


In  the  above  algorithm  n^  and  n2  are  the  number  of  sample  observa¬ 
tions  that  have  been  used  in  the  estimators  of  f^j-  and  respect¬ 

ively,  and  T  is  a  threshold.  After  the  label  is  decided,  X  is  used  to 

update  the  estimate  of  the  density  function  corresponding  to  that  label. 

/ 

According  to  the  above  algorithm,  a  correction  takes  place  only  if 
the  estimators  of  the  density  functions  differ  by  more  than  T.  Loosely 
stated,  the  label  provided  by  the  teacher  is  questioned  and  changed  only 
-f  the  student  is  "certain"  that  the  teacher  is  wrong.  The  student 
accepts  whatever  the  teacher  says  if  he  is  not  sure  of  himself. 

The  extent  to  which  the  student  depends  on  his  teacher  during  the 
learning  process  is  determined  by  T.  Two  special  cases  occur  when 
T  =  0  or  T  -*■  ».  If  T  ■+  »,  then  from  the  first  step  in  algorithm  (11)  it 
follows  that  the  label  provided  by  the  teacher  is  always  accepted.  If 
T  =  0,  then  it  can  be  seen  that  the  student  completely  ignores  his 
teacher  and  provides  his  own  label  for  each  sample  pattern.  By  choosing 
a  variable  threshold,  the  dependancy  of  the  student  or.  his  teacher  can 
be  controlled  during  the  learning  process. 
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Selection  of  Threshold: 


Two  methods  will  be  presented  for  selecting  a  value  for  the  thres¬ 
hold  T.  These  methods  are  based  on  the  asymptotic  normality  of  the  es¬ 
timators  of  the  density  functions.  To  simplify  the  following  treatment, 
the  sample  sizes  n^,  n0  will  be  assumed  equal  to  a  common  value  n,  the 
value  of  n  being  large  enough  to  justify  the  use  of  the  asymptotic  pro¬ 
perties  of  the  estimators.  From  the  results  of  Murthy  [8],  the  estima¬ 
tors  given  in  Equations  (8)  and  (9)  have  the  following  asymptotic  dis¬ 
tributions. 


N 


fX|91<Xl§l) 

/n  (2 


W;nU|82),,~" 


I 


fviS  (x|0» 


fx|e2(*IV 


The  estimators  are  independent  because  of  the  assumption  of  independent 
samples,  and  hence 

Jx|e1;n(l‘IV  -  }x|9><*lS2)'-,<  ['xle^lV  -  fX|e2txIV> 


fX|81(xlfil)  +  fx|82(x^2)' 

/£■  (2  /T)P 

If  then  fx|Q  (x 1 0 2 )  =  0,  and  from  Equations  (5)  and  (6), 

fx|e  (xl8i>  =  Bfx|e1(xl0i)  and  fx|e2(x'§2>  =  (1"B)  fx|e1(xlei)  * 


I.  (13) 


Hence,  if  xe0  , 


I  fx|o  tx^ei^ 

*xH,1.talii>  j  (28-D  fx|e1Cxl°i). 

'  (14) 
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The  approximations  given  in  Equations  (13),  (14)  and  (15)  will  be  used 
in  deriving  expressions  for  the  threshold  T.  Also  the  notation  Pn 
(accept  the  label),  PR  (good  label)  and  ?n  (bad  label)  will  be  used  to 
denote  respectively  the  probabilities  that  the  student  accepted  the  lab¬ 
el  provided  by  the  teacher,  the  probability  that  the  student  provided  a 
correct  label  for  the  sample  pattern,  and  the  probability  that  the  stu¬ 
dent  provided  an  incorrect  label  for  the  sample  pattern.  The  subscript 
n  denotes  that  label  provided  by  the  student  is  based  on  the  estimators 


of  the  density  functions  using  sample  size  n. 

The  first  approach  to  be  discussed  for  selection  of  T  is  based  on  a 
minimax  principle.  In  this  rather  pessimistic  approach,  T  is  selected 
by  setting  a  bound  on  the  maximum  probability  of  a  bad  label  by  the 
student.  Hence  the  quantity  of  interest  is  the  probability  of  a  bad 
label  by  the  student,  bet  us  first  look  at  PR  (bad  label  |xe0^),  given 


Pn  (bad  label  |xc01)  *  '  *X|e1;n(xlSl)  +  TIXCV* 


From  Equation  (14),  the  right  hand  side  of  the  above  equation  becomes 

f  I  fxku|V\ 

=  ]  N  (26-1)  fxlfi  (x|e.),  - = - -  dc  , 

J-  I  *IS1  1  ^(2^T)P| 
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where  the  notation J  N(p,  <j2)d£  denotes  the  integral 


J  -Z~  exp{  -  i 
•  3  7  o  * 


u-ur 


•}d5  • 


’a  A  2 
'2-no 


A  change  of  variable  in  the  above  integral  gives  (bad  label  |xe0^)  = 


I 


[-T-(2g-l)a]c  _  L 
N(0,  l)d5 


(16) 


where 


£  k 

c  =  (2/n)2  n4  and  a  «  f^jQ  (x 1 8^ > . 


It  can  be  shown  that  L  has  a  maximum  at. 


a  =  72m  • 

This  implies  Pn  (bad  label  jxeO^)  is  maximum  at 


a 


T 

( 2  g-1)  ‘ 


Substituting  a  =  'fjg-'iT  E^uat^on  t*,e  maximum  value  of  Pn 

label  IxeS^)  becomes 

Jk - HI—-  c  =  -2c  /T<28-l) 

|  CT/(28-l)]i/2 

J  N(0,  l)d€ 


(bad 


(17) 


Similarly  the  maximum  value  of  Pn  (bad  label  |xt82)  can  also  be  shown  to 
be  equal  to  the  integral  in  Equation  (17).  Hence  irrespective  of  whether 
xeG^  or  ©2,  the  maximum  probability  of  a  bad  label  is  given  by  the  inte¬ 
gral  in  Equation  (17).  If  a  is  the  desired  limit  on  the  maximum 
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where 

t2 

a 

Ca  '  4(2/0P 

Choosing  T  according  to  Equation  (19)  guarantees  that  on  the  aver¬ 
age  the  maximum  value  of  the  probability  that  the  student  provides  a  bad 
label  at  any  given  stage  of  learning  is  equal  to  the  desired  value 
For  any  given  pattern  x  the  probability  of  bad  label  is  less  man  or 
equal  to  a.  The  choice  of  a  arid  hence  t  is  subjective. 

The  second  method  for  selecting  the  threshold  T  is  based  on  a  deci¬ 
sion  theory  approach.  In  this  approach,  vaiues  are  assigned  to  the 
possible  outcome  of  error  correction  and  T  is  chosen  such  that  the  "ex¬ 
pected  value"  is  maximised.  The  two  main  outcomes  of  the  error  correct¬ 
ion  scheme  are  that  the  teacher's  label  is  accepted  or  the  student  pro¬ 
vides  a  label.  There  are  two  outcomes  associates  with  the  student  pro¬ 


viding  a  label,  namely  the  label  provided  by  the  student  is  mrrect  ur;u 
label  provided  by  the  student  is  incorrect,  bet  us  assign  the  vaiues 


a'  and  b*  respectively  to  these  three  outcomes,  the  teachers  label 
iceepted,  the  students  label  being  correct  and  and  the  students  label 


being  incorrect. 


1Q3 


Let  us  first  look  at  verifying  the  label  on  a  sample  pattern  from 


8^  at  the  n**1  stage  of  learning.  The*expected  value*  is  given  by, 
E{value  Jxe6^}  =  0  (accepting  teacher's  label  jxeS^)^ 

+  a'  (good  label  |xe0^)^ 

-  b'^Pn  (bad  ldbel  IxeS^ 

fylfi  ( x | 6  ) 

t  /  Xlei  1  \ 

=  a'  j  N  (  (28-1)  f  ,  (x|6  ),  - = - - 

J  V  XI91  1  VrT  (o 


fT  /  fXj8  (xf  ei} . 


Doing  the  necessary  algebra,  it  can  be  shown  that  the  value  of  T  that 
maximizes  Eivalue  IxeS^}  is  given  by 

v£> 

T  =  - — - 

2(2  /tijP  (28-1) 


^  (20-1) 


where 


-  a 

'  i(2/T)P 

Proceeding  along  the  same  lines  it  can  be  shown  that  Et'value  IxtS^), 
is  also  maximum  at  T  given  in  Equati  (20).  This  implies  that  irres¬ 
pective  of  whether  xed,  or  xet>„,  the  "average  value"  of  correction  is 
maximum  if  T  is  chosen  according  to  Equation  (20). 

The  form  of  T  given  in  Equation  (20)  is  the  same  as  the  one  given 
in  Equation  (19)  ter  the  minimax  approach.  The  only  difference  is  in 
the  constants  appearing  in  the  expression.  These  constants  are  deter¬ 
mined  by  the  choice  of  the  maximum  acceptable  value  of  the  probability 
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of  bad  label  in  the  first  approach  or  the  value  function  in  the  decision 
theory  approach. 

The  algorithm  for  error  correction  now  is: 

Accept  the  label  provided  by  the  teacher  for  x  if 


^X|§1;n(xl®l)  "  ^x|e2in(xl®2*  <  T* 


Correct  the  label  to  0^  if 


and  to  if 


fx|02;n 


(x|§2)  >  f 


X(§1jn 


(x|81)  +  T 


(21) 


where  T  is  the  threshold  given  in  Equation  (19)  for  the  minimax  approach 
and  in  Equation  (20)  for  the  decision  theory  approach. 


Properties  of  Thresholded  Error  Correction: 

Besides  being  an  easy  algorithm  to  implement,  the  proposed  error 
correction  scheme  has  the  following -desirable  properties: 

1)  The  maximum  probability  of  error  correction  occurs  on 
samples  that  come  from  close  to  the  modes  of  the  density 
functions . 

2)  At  any  given  stage  of  learning,  the  probability  that  the 
student  corrects  an  error  made  by  the  teacher,  given  that 
the  teacher  is  in  fact  in  error,  increases  as  8  increases, 
i.e.  with  a  better  teacher,  there  is  a  better  chance  that 
the  student  corrects  an  error. 


3)  The  teacher  is  gradually  phased  out  as  the  knowledge 
acquired  by  the  student  increases. 


Let  us  concern  ourselves  with  correcting  a  possible  error  on  the 
label  of  a  sample  x  that  belongs  to  category  6^.  The  pi  .inability  of 
error  correction  on  the  label  of  x  is  given  by 


P  (error  correction 
n 


xcfli)  =  (1- 


*,{P(fx|81in(xlS1)>fx|S2;n''‘le2Wl“9l)) 

;  /  fx|e /-Im 

-8)1  V  <28-l)fx.  <x|8  ),  - i - -d£. 

JT  \  x|ei  1  G  (2  /T)p/ 


From  the  above,  it  can  be  easily  verified  that  if  fxje1(xil0i^>fx|ei(x2 ^91>* 

then  P  (error  correction  Ix,c8.)  >  P  (error  correction  Ix„c0  ).  Hence, 
n  '  1  1  n  1  2  1 

the  maximum  value  of  the  probability  of  correcting  the  label  on  a  sample 

xe0  occurs  if  fvt  (x|0,)  is  maximum.  Similarly  it  can  be  shown  that 

1  X 1 0  ^  1 

the  maximum  value  of  the  probability  of  correcting  the  label  on  a  sample 

xe0„  occurs  if  f„.a  (x|8„)  is  maximum.  These  two  statements  establish 

2  X  j  0  2  2 

the  first  property  listed  above.  Since  samples  are  more  likely  to  nave 
come  from  near  the  modes,  it  is  desirable  to  have  a  larger  probability 
of  correction  here. 

The  probability  that  the  student  corrects  a  label  error  on  a  sample 
x  from  category  0, ,  given  that  the  teacher  made  an  error,  is 


P  (error  correction  xc6,  and  the  teacher  made  an  error) 
n  1  x 


l 


fX}9  (XIV\ 

r  T"1’ TTT^T  • 


i 


where 


«(0,l)d( 

» 

[T-(2  -l)ajc 

S*  E  A 

a  =  fvia  (*|8,)  and  c  s  (2  /*)2  n** 
*l®l 
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The  lower  limit  of  the  integral  decreases  as  B  increases  and  hence  the 
probat'lity  that  the  student  corrects  an  error  on  the  label  of  a  sample 
pattern  from  category  6^,  given  that  the  teac. er  made  an  error,  increases 
as  $  increases.  A  similar  argument  may  be  given  for  x  from  category  6^ 
and  hence  the  property  that  with  a  better  teacher,  there  is  a  better 


chance  that  the  student  corrects  an  error. 

The  probability  that  the  student  provides  his  own  label  for  say, 
a  sample  pattern  x  from  category  0^  is 

Pr( student  provides  a  label  jxeB^)  = 

-  px|S2inUIV!  ‘  Tl«®1 
^26-1)^ 

f  ^ 

=1-1  H(0,l)d$ 

J  c:M?i-i)a0c 

-  sz 

It  can  be  seen  that  as  T  increases  the  value  of  the  above  integral  in¬ 
creases  and  hence  the  probability  that  the  student  provides  his  own  lab¬ 
el  deci'eases.  Conversly  as  T  decreases,  the  probability  that  the  stu¬ 
dent  provides  his  own  label  increases.  Since  T  is  a  decreasing  function 
of  n,  T  will  be  large  in  the  initial  stage^  of  learning  and  hence  the 
probability  that  the  student  provides  his  own  label  is  small.  This 
means  the  student  accepts  whatever  the  teacher  says  when  learning  begins. 
As  n  +  •,  T  •*  0  and  the  probability  that  the  student  provides  his  own 
label  -*1,  i.e.  in  the  advanced  stages  of  learning,  the  student  provides 
hit  own  label  on  each  sample  and  learns  independently  without  the  aid 


of  -he  teacher.  This  gradual  phasing  out  of  teacher  also  occurs  in  most 
real  life  learning  situations . 

The  proposed  error  correcting  learning  scheme  checks  the  label  on 
one  sample  at  a  time  serially.  Approximate  estimators  can  also  be  updated 
serially  in  a  polynomial  form  as  suggested  by  Sprecht  [9].  After  updat¬ 
ing,  only  ths  coefficients  of  the  polynomial  are  retained  and  the  samples 
are  discarded.  A  question  that  is  left  open  here  is  whether  it  would  be 
better  to  store  all  the  samples  and  verify  the  labels  on  all  the  v.n-1) 

1-h 

prior  samples  at  the  r.  stage  of  learning.  The  authors  feel  that  the 
storage  requirements  and  the  compute  .  a  involved  for  doing  this  will  be 
formidable  when  the  dimension  of  the  patterns  and  the  sample  sice  are 
large,  both  of  which  are  common  in  pattex'n  recognition  problems. 

Even  though  the  expressions  for  threshold  given  in  Equations  (19) 
and  (20)  display  many  .  rafale  properties  no  claim  can  be  made  about 
the  "optimality"  of  these  expressions.  One  of  the  shortcomings  of  the 
analysis  presented  in  this  lies  in  treating  6  as  constant.  Due  the 
error  correction,  the  effective  value  of  B,  defined  as  the  ratio  of  the 
number  of  sample  patterns  with  correct  labels  to  the  total  number  of 
sample  patterns  is  changing.  A  formulation  of  this  change  i.s  difficult, 
if  at  all  possible.  The  probability  statements  about  the  outcomes  of 
error  correction  involve  the  unknown  density  functions.  Whereas  for  the 
teacher  B  is  independent  of  x,  the  sample  being  labeled,  the  performance 
of  the  student  will  depend  on  the  value  of  x  and  his  past  performance. 

15  the  error  correction  has  been  done  badly  at  the  initial  stages  of 
learning,  then  error  correction  on  subsequent  samples  will  also  be  bad. 
This  fundamental  difference  in  labeling  procedure  presents  a  very  for- 
misianiw  step  in  the  analysis  of  performance  of  the  error  correcting 
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The  prol’“,!i  correction  scheme  was  simulated  on  the  com¬ 

puter  and  the  results  of  the  simulation  are  presented  in  the  next  section. 


109 


IV.  SIMULATIONS 


The  performance  of  the  proposed  learning  scheme  was  evaluated 
through  simulations  on  the  digital  computer.  The  conditional  density 
functions  f ^ | Q  and  f^ | Q  used  in  the  simulations  are  shown  in  Figure  2. 
Samples  were  drawn  randomly  from  these  two  categories  with  P(Q^)  =  P(89) 

=  1/2  and  the  labeling  was  done  according  to  (1).  The  learning  scheme 
without  error  correction  accepted  the  label  provided  by  the  teacher  and 
the  density  functions  f^|g  and  were  estimated  according  to  (8) 

and  (9).  A  total  of  N^,  samples  were  used  for  learning.  Using  the  es¬ 
timates  of  the  density  functions  based  on  N^,  samples,  40  test  samples 
were  classified  according  to  (10). 

The  error  correcting  scheme  learned  from  the  same  set  of  NT  samples, 
according  to  algorithm  (11).  The  value  of  T  corresponded  to  ot,  the 
maximum  probability  of  bad  label  equal  to  0.05  cr  values  of  a'  and  b' 
such  that  a'/b*  =  e.  Based  on  the  final  estimate  of  the  density  func¬ 
tions,  the  same  40  test  samples  were  classified. 

For  each  value  of  8,  ten  runs  were  made.  The  risk  for  each  run 
was  taken  to  be  the  ratio  of  the  number  of  test  samples  that  were  mis- 
classified  to  the  total  number  of  test  samples  classified.  The  average 
risk  for  the  learning  scheme  was  taken  to  be  the  average  of  the  risks 
on  ten  runs.  Figure  3  shows  a  plot  of  the  average  risk  versus  fj  for 
the  two  learning  schemes,  for  a  sample  size  =  20.  Figure  4  shows 
the  same  plot  for  a  sample  size  N^,  =  60. 

l 


no 


It  appears  from  Figures  3  and  4  that  error  correction  cn  the  aver¬ 
age  improves  the  performance  of  the  learning  scheme.  A. rather  interest¬ 
ing  aspect  of  these  plots  is  that  error  correction  does  not  seem  to  im¬ 
prove  the  performance  very  much  for  either  very  high  or  very  low  values  of  0. 
At  lower  values  of  8,  i.e.  with  a  very  bad  teacher,  the  amount  of  cor¬ 
rection  is  small  because  the  student  does  not  learn  enough  to  question 
his  teacher  very  often.  At  higher  values  of  8,  i.e.  with  a  very  good 
teacher,  the  student  acquires  his  limiting  knowledge  quickly  and  error 
correction  does  not  help  here  since  error  correction  does  not  increase 
the  limiting  knowledge.  Hence  it  appears  that  error  correction  is  most 
effective  when  the  teacher  is  mediocre. 

Simulations  were  done  for  the  unequal  sample  size  case  with  P(61>  = 

0.9  and  P(62 )  =  0.1.  The  simulation  procedure  is  identical  to  the  one 
described  above  except  for  the  error  correction  algorithm.  The  algor¬ 
ithm  used  in  this  case  is  given  in  [IQ].  Figure  5  show-  a  plot  of  aver¬ 
age  risk  versus  8  for  this  simulation.  Or.ce  again  it  appears  that  error 
correction  leads  to  an  improvement  in  the  performance  of  the  learning 


scheme . 


V.  CONCLUSIONS 


In  this  paper  we  have  proposed  a  thresholded  error  correcting 
scheme  for  learning  with  an  imperfect  teacher.  Expressions  were  derived 
for  the  value  of  the  threshold  as  a  function  of  the  reliability  of  the 
teacher,  the  sample  size  and  a  subjective  constant.  The  proposed  scheme 
provides  a  simple  means  for  combining  the  knowledge  acquired  by  the  stu¬ 
dent  and  the  knowledge  of  the  teacher.  It  is  possible  to  control  the 
extent  to  which  the  student  depends  on  his  teacher.  Through  computer 
simulations,  we  have  shown  that  error  correction  leads  to  an  improvement 
in  the  performance  of  the  learning  scheme. 

We  have  presented  only  one  of  many  possible  error  correcting 
schemes  for  learning  with  an  imperfect  teacher.  Whether  the  scheme 
presented  in  this  paper  is  the  "best"  is  not  known.  However,  the  authors 
feel  that  this  study  will  aid  in  an  understanding  of  the  problem  of  error 
correction  in  learning  with  an  imperfect  teacher  and  may  suggest  other 

optimum  schemes  of  error  correction. 

More  work  on  this  scheme  is  needed,  theoretically  to  study  conver¬ 
gence  and  experimentally  to  apply  this  procedure  to  more  than  two  cat¬ 
egories  of  patterns. 
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CAPTIONS  FOR  FIGURES 


Figure  1.  Model  for  the  Error  Correcting  Procedure 
Figure  2.  Density  Functions  used  in  Simulations 
Figure  3.  Effect  of  Error  Correction  on  Performance 
Figure  4.  " 

Figure  5.  " 
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Figure  1.  Model  for  the  Error  Correcting  Procedure 
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Figure  2.  Non-overlapping  Densities  Used  in 
Simulation 
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0.6 


DENSITIES:  AS  IN  FIGURE  2 
SAMPLE  SIZE:  NT  *  20 
P(0l )  *  P(02)  *  1/2 


Figure  3.  Effect  of  Error  Correction  on  Performance 
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DENSITIES:  AS  IN  FIGURE  2 
SAMPLE  SIZE:  NT  >  60 
P(6,)  *  P(e2)  »  1/2 


Figur*  4,  Effect  of  Error  Correction  on  Performance 
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DENSITIES:  AS  IN  FIGURE  2 
SAMPLE  SIZE:  60 
PI0,)  *0.9;  PI02)  *0.1 


TEACHER 


APPENDIX  B 
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ASMB.A.B/L.T 

0R6  1 00B 
BEGIN  NOP 

LDA  FL 
OTA  MB 
START  NOP 
HLT 
NOP 
LIA  1 
CMA 
INA 

STA  REC 
ENTER  NOP 
HLT 
NOP 

LOA  REC 
STA  CNT 
CLC  0 
CuB 
CLF  0 

FIRST  LDA  CNTLI 
OTA  6 
CLC  2 
LDA  ADR | 
OTA  2 
STC  2 
LDA  NBUF 
OTA  2 
STC  14B.C 
STC  6»C 

LOOP  LDA  CNTLI 
OTA  7 
CLC  3 
LDA  ADR2 
OTA  3 
STC  3 
LDA  NBUF 
OTA  3 
SFC  6 
HLT  6 
SFS  6 
JMP  *-| 
NOP 

STC  14B.C 
STC  7 *C 

THIRD  LDA  CNTL2 
OTA  6 
CLC  2 


PROGRAM  STARTS  AT  100  OCTAL. 

LOAD  TAPE  COMMAND  WORD.  FILE  MK. 


LOAD  SW’S  WITH  NO.  RECORDS. 

COMPLEMENT  REGISTER  A. 

ADD  I  TO  A  TO  GET  2’S  CQMPL. 
STORE  2 * S  COMPL  IN  REC. 


PUSH  RUN  WHEN  READY  TO  START  PGM 

INITIALIZE  RECORD  COUNT. 

TURN  OFF  ALL  I/O. 

CLEAR  REGISTER  B-PARITY  ERR  CNT. 
TURN  INTERRUPT  OFF. 

INITIALIZE  DMA!  TO  READ  ADC* 
CONTROL  WORD  ONE. 


CONTROL  WORD  2. 

NBUF  IS  ’’WORDS  PER  RECORD”. 
CONTROL  WORD  3. 

START  ADC. 

START  DMA! . 

INITIALIZE  DMA2  TO  READ  ADC. 
CW! 


CW£ 


CW3 

SKIP  FLAG  CLEAR-SKIP  DMA1  BUSY. 
ERROR  HALT. 

SKIP  FLAG  SET-SKIP  WHEN  DMA!  RDY 
WAIT  UNTIL  DMA I  IS  FINISHED. 


START  ADC  &  START  DMA2* 
INITIALIZE  DMA  I  TO  WRITE  TAPE. 


Figure  B-l.  ADC1  Program 
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LOA  ADR  1 0 
OTA  2 
STC  2 
LDA  NBUF 
OTA  2 
SFS  MB 
JMP  *-l 
LDA  OUT 
OTA  1IB/C 
STC  6/C 
SFS  6 
JMP  *-l 
L I A  I  IB 
AND  MASK  I 
SZA 

JSB  ERROR 
ISZ  CNT 
JMP  *+J2 
LDA  JOB l 
HLT  6 
JSB  ENDFL 
NOP 

JSB  REWND 
CLC  0 
LDA  J0B2 
HLT  6 
NOP 

JMP  BEGIN 
NOP 

FOUR  LDA  CNTLI 
OTA  6 
CLC  2 
LDA  ADR  1 
OTA  2 
STC  2 
LDA  NBUF 
OTA  2 
SFC  7 
HLT  7 
SFS  7 
JMP  *-l 
STC  I  40/ C 
STC  6/C 
LDA  CNTL2 
OTA  7 
CLC  3 
LDA  ADR20 
OTA  3 


CW2 


CW3 

SKIP  FLAG  SET-SKIP  WHEN  TAPE  RDY 
WAIT  UNTIL  TAPE  IS  READY. 

GET  TAPE  COMMAND  WORD  FOR  OUTPT 
OUTPUT  COMMAND  WORD  TO  TAPE. 
START  DMA1  TO  TAPE. 

SKIP  FLAG  SET-SKIP  IF  DMA1  FIN. 
WAIT  UNTIL  DMA!  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

GO  TO  ERROR  ROUTINE-BAD  PARITY. 
INCREMENT  RECORD  COUNT. 

HALT  ON  RECORDS  COMPLETE  WITH 
< A )  REGISTER  =  70707******* 

PUSH  START  TO  GET  EOF  MARK***** 

TAPE  REWIND  ROUTINE. 

TURN  OFF  ALL  I/O  UNITS. 

HALT  ON  NORMAL  JOB  COMPLETE - 

LOAD  A  NEW  REEL  OF  TAPE  AND  PUSH 
RUN  TO  REPEAT  ENTIRE  PROGRAM. 
******************************* 
******************************* 
INITIALIZE  DMA  I  TO  READ  ADC. 


CW2 


CW3 

SKIP  IF  DMA2  IS  BUSY. 

ERROR  HALT. 

SKIP  IF  BUFFER2  IS  FULL. 

WAIT  UNTIL  DMA2  FLAG  IS  SET. 
START  ADC. 

START  DMA  1  * 

INITIALIZE  DMA2  TO  WRITE  TAPE. 
CWI 


CW2 


Figure  B - 1 .  ADC1  Program  (continued) 
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STC 

3 

LDA 

NBUF 

OTA 

3 

SFS 

1  IB 

JMP 

*-1 

LDA 

OUT 

OTA 

!  1B.C 

STC 

7.C 

SFS 

7 

JMP 

*-! 

LIA 

1  IB 

AND 

MASKI 

SZA 

JSB 

ERROR 

ISZ 

CNT 

JMP 

*♦13 

LDA 

JOB1 

HLT 

7 

NOP 

JSB 

ENDFL 

JSB 

REWND 

NOP 

CL  C 

0 

LDA 

J0B2 

HLT 

7 

NOP 

NOP 

FIVE 

JMP 

BEGIN 

JMP 

LOOP 

ERROR 

NOP 

INB 

JMP 

ERROR. I 

REWND 

NOP 

SFS 

1  1  B 

JMP 

*- 1 

LDA 

REW 

OTA 

l  1  B.C 

SFS 

1  IB 

JMP 

*-l 

JMP 

REWND. I 

ENDFL 

NOP 

SFS 

1  IB 

JMP 

*-l 

LDA 

FILE 

OTA 

I  IB.C 

SFS 

1  IB 

CW3 

SKIP  WHEN  TAPE  IS  READY. 

WAIT  UNTIL  TAPE  IS  READY. 

GET  TAPE  COMMAND  WORD. 

START  TAPE  MACHINE. 

START  DMA2  TO  TAPE. 

SKIP  WHEN  DMA2  IS  FINISHED. 
WAIT  UNTIL  DMA2  IS  FINISHED. 
GET  tape  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

BAD  PARITY. 

INCREMENT  RECORD  COUNT. 


RECORDS  COMPLETE.  PUSH  RUN  TO 
WRITE  EOF  AND  REWIND  TAPE. 

GO  TO  END-OF-FILE  ROUTINE. 

GO  TO  REWIND  ROUTINE. 

TURN  OFF  ALL  I/O  UNITS. 

PUSH  REN  TO  REPEAT  ENTIRE  PGM. 
LOAD  NEW  TAPE***************** 
****************************** 
****************************** 
GO  READ  ANOTHER  RECORD. 

PARITY  ERROR  ROUTINE. 

INCREMENT  B  REGISER. 

RETURN  TO  MAIN  PROGRAM. 

REWIND  ROUTINE. 

SKIP  WHEr.  TAPE  IS  READY. 

WAIT  UNTIL  'APE  IS  READY. 

GET  REWIND  COMMAND  WORD. 

REWIND  TAPE. 

SKIP  WHEN  TAPE  IS  REWOUND. 

RETURN  TO  MAIN  PROGRAM. 
"ND-OF-FILE  ROUTINE. 

SKIP  WHEN  TAPE  IS  READY. 

GET  TAPE  EOF  COMMAND  WORD. 
WRITE  E-O-F. 


Figure  B-l,  A0C1  Program  (continued) 
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JMP 

*- 1 

JMP 

ENDFL.  I 

FILE 

OCT 

35 

CNTL1 

OCT 

120014 

NBUF 

DEC 

-2000 

OUT 

OCT 

31 

CNTL2 

OCT 

1 60010 

ADR  I 

OCT 

102000 

ADR2 

OCT 

106000 

ADR  10 

OCT 

002000 

ADR20 

OCT 

006000 

MASK! 

OCT 

2 

REW 

OCT 

201 

REC 

NOP 

CNT 

NOP 

FL 

OCT 

35 

JOBI 

OCT 

77777 

J0B2 

OCT 

END 

70737 

END 

OF  TmPE 

END 

OK  TAPE 

WAIT  UNTIL  TAPE  IS  READY* 

RETURN  TO  MAIN  PROGRAM. 

E-O-F  COMMAND  WORD* 

CONTROL  WORD  NO*  I  FOR  DMA* 
NUMBER  OF  WORDS  PER  RECORD* 

TAPE  WRITE  COMMAND  WORD* 

CONTROL  WORD  NO*  2  FOR  DMA* 
BUFFER  I  STARTING  ADDRESS.  2000B 
BUFFER2  STARTING  ADDRESS*  6000B 
BUFFER  1  STARTING  ADDRESS*  2000B 
BUFFER2  STARTING  ADDRESS.  6000B 
MASK  TO  CHECK  PARITY  ON  TAPE* 
TAPE  REWIND  COMMAND  WORD. 

ENTER  NUMBER  OK  RECORDS  HERE* 
PUT  2 ' S  COMPLEMENT  OF  RECORDS  H 
TAPE  E-O-F  COMMAND  WORD. 


Figure  B-l 


ADC1  Program  (continued) 


0001 

ASMB,A,B,L#T 

0002 

ORG  1 00B 

0003 

BEGIN  NOP 

0004 

LDA  FL 

000  5 

OTA  1  IB 

000  6 

HLTl  HLT 

0007 

LIA  1 

0008 

CPA  ZERO 

0009 

JMP  START 

0010 

CMA 

001  1 

INA 

0012 

STA  CNT 

0013 

LOOP1  LDA  SPC1 

001  4 

OTA  1  IB 

001  5 

ISZ  CNT 

001  6 

JMP  LOOP  1 

0017 

START  NOP 

0018 

HALT2  HLT 

001  9 

CLC  0 

0020 

CLB 

0021 

CLF  0 

0022 

LDA  CNTL1 

0023 

OTA  6 

0024 

CLC  2 

0025 

LDA  ADR1 

002  6 

OTA  2 

0027 

STC  2 

0028 

LDA  NBUF 

002  9 

OTA  2 

0030 

STC  14B.C 

0031 

STC  6,C 

0032 

SFS  6 

0033 

JMP  *-l 

0034 

LDA  CNTL2 

0035 

OTA  6 

0036 

CLC  2 

0037 

LDA  ADR  10 

0038 

OTA  2 

0039 

STC  2 

0040 

LDA  NBUF 

0041 

OTA  2 

0042 

SFS  11 B 

0043 

JMP  *-l 

0044 

LDA  OUT 

0045 

OTA  1 1 B»C 

0046 

STC  6#C 

0047 

SFS  6 

0048 

JMP  *-l 

0049 

LIA  1 

0050 

AND  MASK1 

Figure  B-2.  ADC2  Program 
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0051 

SZA 

0052 

JMP 

ERROR 

00  53 

LDA 

ZERO 

0054 

JMP 

*  +  l 

0055 

ERROR 

LDA 

ONE 

005  6 

HALT3 

HLT 

0057 

L I A 

1 

0058 

CPA 

ZERO 

0059 

JMP 

START 

0060 

CPA 

BACK 

00  61 

JMP 

BACK  1 

00  62 

CPA 

ENDX 

00  63 

JMP 

REW 

0064 

BACK  1 

LDA 

SPC2 

0065 

OTA 

1  IB 

00  66 

SFS 

1  IB 

00  67 

JMP 

*- 1 

0068 

JMP 

START 

0069 

REW 

NOP 

0070 

SFS 

1  IB 

0071 

JMP 

*- 1 

0072 

LDA 

REW  1 

0073 

OTA 

1  1B,C 

007  4 

SFS 

1  IB 

007  5 

JMP 

*- 1 

007  6 

CLC 

0 

007  7 

HLT 

007  8 

ZERO 

OCT 

0 

007  9 

ONE 

OCT 

1 

0080 

BACK 

OCT 

1 

0081 

ENDX 

OCT 

2 

0082 

CNTL1 

OCT 

120014 

00  83 

ADR  1 

OCT 

102000 

0084 

NBUF 

DEC 

-2048 

0085 

CNTL2 

OCT 

160010 

0086 

ADR  1 0 

OCT 

002000 

0087 

SPC1 

OCT 

3 

0088 

OUT 

OCT 

31 

0089 

SPC2 

OCT 

41 

0090 

FL 

OCT 

35 

00  91 

MASK  1 

OCT 

2 

0092 

REW  1 

OCT 

201 

0093 

CNT 

NOP 

009  4 

END 

KND 

OF  TAPE 

Figure  B--2  A0C2  Program  (continued) 
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'TOI  ASMD.3.L. A>C»T 

•11 19  'VII  11  oRG  11  ID  PROGRAM  STARTS  AT  111  OCTAL 

0003* 

'l1<14*****DATACON-CONVT  program 
AMDS* 

1114*  DATA  READ  FROM  A/0  CONVERTOR  IS  PUT  ON  MAGMKTIC  TAPE 
0)07*  IN  A  FORMAT  CMMPATAHLE  TO  FORTRAN  341.  USE  A  s /STEF, 

"MAR*  3 AO  STANDARD  LABELED  TAPE. 

0009* 

00) 0****+ 

00 1  I  * 

HI  9  +  FIRST  OPERATION  IS  TO  CHFCK  FOR  LEG4L  LABELED  TAPE. 

Ml  l  3  * 


0:11  4 

101  11 

0 AO 4 A3 

LOA 

HDCON 

LOAD  FIRST  CONTROL  '•  O 

?l). 

001  S 

001  Ml 

1  03  A 14 

OTA 

4 

TyPF.  (IF  OPERATION  AND 

mm  it  ns*; 

'll  1  6 

101  IP 

1 04709 

CLC 

2 

PREPARE  FOR  SECOND  CONTROL.  .  DR 

00 1  7 

01103 

040441 

Lda 

HDAD 

SECOND  CONTROL  FORD. 

00 1 « 

0  11  14 

1 03403 

OTa 

2 

INPUT  ADDRESS  IN  CORE 

FDR  FIRS 

00 1  9 

Oil  Ob 

1 03703 

STC 

2 

PREPARE-- 

0030 

,101  14 

140440 

LDA 

HOLES' 

LENGTH  OF  DATA  FIELD 

ID  HE  REA 

MOP  1 

M  il  (17 

1 13403 

MTA 

9 

0033 

I'll  1  1 

040443 

LDA 

READ 

LOAD  READ  COMMAND  FOR 

MAG.  TAR 

0133 

111  1  1 

1 1341 1 

OTA 

1  1 1  *  C 

START  TARE  DECK. 

'•V43  4 

0(41  |  0 

I 03704 

STC 

4.C 

START  THE  DMA  CHANNEL 

*  2 . 

003  b 

011  1  3 

11131 1 

SFS 

1  IB 

WAIT  FOR  TAPE  DECK. 

003  4 

011  1  4 

1341 1 3 

.IMP 

*-  1 

0137 

1011S 

140444 

LDA 

VO 

LOAD  "VO"  FROM  341  HE 

AUER  v/OLI 

003  H 

001  1  A 

131710 

XOR 

7  0  0  H 

CHECK  FIRST  DATA  FORD 

• 

MM?  9 

011  1  7 

009103 

S  74 

0330 

(40  1  30 

134370 

■  IMP 

DEAD 

FIRST  WORD  DID  NOT  COPa-E - - FOR 

1031 

1H31 

041 445 

LDA 

LI 

LOAD  "LI"  FROM  34"  HE, 

DDES  REC" 

Oh  3  3 

00  1  04 

13071 1 

XOR 

7  1 1  ri 

0133 

01133 

102009 

STA 

CHECK  SECOND  DATA  WJPIJ. 

113  4 

01134 

124370 

Jimp 

DEAD 

1*1.3  5 

11135 

01  4.37  3 

JSI3 

FWDSP 

Skip  n*'C'Ni)  F  '  1 .  E 

' 

113  A 

101  3  A 

114373 

JSH 

FW  DSP 

SKIP  THIRD  FILE. 

1137 

10137 

014373 

JSH 

EWDSO 

CHECK  FOURTH  FILE  FOR 

1'APE  i;A  ' 

All  A 

11130 

134111 

1ST 

1 

1039 

00  1  3  1 

094371 

JMP 

DEAD 

TAP-.  MARK  NOT  HERE  AS 

SHOULD  H 

0040* 

Oil  41  *  *  *  *  *  OPERATOR  I  ON  -  -  FORWARD  SPACE  SPECIFIED  NUMBER  OF  RECORDS. 

004  2* 

0043*  SET  0  IT  "lb" 

00  44  *  *  *  *  * 

004b* 

004/.  00133  I  02  bO  |  LIA  I  LOAD  SWITCH  REG  I  STORE 

0-147  00133  'V12D9A  SSA  CHECK  SWITCH  SKI  TING 

0049  0-1134  o  ( 449 I  JS,(  FVDNO  JUMP  III  SMIOUTINE  I  < »  FORSARU  SP 

0049* 

Also***** 

H5I  * 

0*15?  00|  3b  103000  START  HL  T  1  LOAO  s.v.  REG.  1'ITH  NO.  RECORDS. 

10V3  10 1  3  A  |-v»yi|  LIA  I 

Vlb  4  lit  37  .113-144  CMA.  IN  A  GENEVA  1  k"  TW:ll"  COMPLEMENT 

OASb  10140  ‘17,1444  STA  RFC  STORK  2  *  n  CUM^L  IN  REC. 

■VISA  04141  |1>M1|  ENTER  HLT  I  P* ISM  RUN  TO  START  PROGRAM 

'40  b  7  lot  4  R  D4M444  L  DA  REC 


Figure  8-3.  ADC2A  Program 
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.10  I  .13 

070  /,  A7 

STA 

cn  r 

f.y )  s  0 

•10  |  AA 

1 0 A700 

CLC 

0 

ft  -1 

1.1  MS 

Oip/,00 

CLA 

'•MM 

MO  |  /.lA 

o  70  A3 3 

STA 

NER 

00  1  .37 

l 03 i on 

CLF 

M 

V  0  1  30 

oaoaap 

FIRST 

l.ilA 

CNTL1 

'  \  A  A 

00  1  SI 

1  OP  AO  A 

OTA 

A 

) 

00  |  SO 

1  o  A  7  0  P 

CLC 

2 

0  Iftft 

.10  |  S3 

0  AO  A  3  1 

L03 

ADR  l 

'*Jft7 

■l'l  1  34 

1  03  A- IP 

OTA 

P 

'1  )  A  c* 

OH  1  33 

1 0P70P 

s  rc 

P 

'  VI 

01  1  3  0 

0  AO  A A3 

LlJA 

Mill  IF 

•>rn 

0O1  37 

1 OPAOP 

0  I’M 

2 

..VI  /  ) 

fi  ll  00 

t  03  7 1  A 

3  TC 

1  AH 

m  /  .> 

0  1 1  A 1 

l  M3  70  A 

src 

A,0 

'V173 

001  AP 

MA'IAAP 

L'.IO  J 

loa 

CN  TL  1 

i'W/i 

1  11  AO 

I  Op  AO  / 

OTA 

7 

•vv/s 

M  1 1  A3 

1 0  A 7 0  3 

CLC 

3 

1 V  W  t\ 

T  il  AS 

0  AO A  32 

LOA 

AURP 

•VI 7  7 

00|  A  A 

1  t  ip  AO  3 

OTA 

3 

i  V'i  7  R 

31  1  A7 

IMP  7  *5)3 

STC 

3 

W  7  9 

00  1  70 

0  AO  A A3 

LDA 

NHUF 

m«n 

001  71 

1  OP  AO 3 

0  Trt 

3 

tY.\y\  \ 

TO  1  7? 

1 OPPOA 

RFC 

A 

VM-'.O 

O'l  1  7  3 

1 MPOOA 

HLT 

A 

:ri«  ? 

On  |  7  4 

1  OP 30  A 

SFS 

A 

*UH/J 

•VI  7  S 

OP  A  1  7  A 

>!R 

*-l 

•  vi  s 

n  il  7 A 

1  0  3  7  1  A 

STC 

1  RM .  0 

'  VH;A 

1 0)77 

1 03707 

src 

7  »  0 

•y  \w  / 

M  1  •  >  O  - 1 

0  AO ASM 

THIRD 

LDA 

CNTL2 

•1 

1  I'*!  1 

t  OP.  AO  A 

OTA 

A 

M  ,*t 

io.>M!> 

i n 6 7 up 

CLC 

2 

i  ,  < 

00003 

0 AO AAA 

LlJA 

RAORi 

'*W| 

0")P0  4 

1  op  AO 2 

OTA 

2 

00!>0S 

1027 M2 

STC 

2 

•'VuQ3 

'.V'PO  A 

OAOAAA 

1.0  A 

NHUFF 

•  \f\ 9  A 

00007 

1 02  AO  2 ' 

0  Ta 

P 

M  \  g 

OOP  l  o 

O  AO A A3 

LDA 

NHUF 

“V  1 9  A 

O'M  1  | 

0  7  0  A  1  A 

STA 

COUNT 

U97 

O".  '  1  ! 

•  1  A  A  A  0  3 

LD!3 

ADR  10 

t  V 1 0  K 

30  M3 

0  7  A  A  1  7 

STB 

N  dm 

’■‘V 1  »> '/ 

1  IP  1  A 

0  A  A  A  A  3 

ADA 

NUI  IF 

MM  t 

OOP  1  3 

1  A.  14  47 

LDA 

our 

•u  II 

OOP  I  A 

0,1 0  0  AO 

CLK 

o>  02 

"IMP  I  7 

1 0231 1 

SFS 

1  1  H 

0 1  O  3 

0  1PP0 

02A2 1 7 

jv.o 

*-! 

0|  A  A 

O  )pP| 

1  0.3  A  |  1 

OTA 

1 1  n .  c 

'U  IB 

DORPS 

1 0370  A 

src 

A  »  C 

■M'lfi 

nop, >3 

0 1  A3  AS 

•  ISO 

CUNVT 

B  07 

1  1  p  o  A 

IIP  3  0  A 

3F3 

A 

o|  OR 

MOPP  s 

OPAPPA 

J.-M 

*-l 

,  r,  9 

OOP  pA 

1  IPS  1  1 

LI  A 

1  1  H 

DMO 

on;>P7 

O  |  0  A  3  A 

AN!) 

MASKI 

Ul  1 

00330 

002002 

S  ?  A 

’DIP 

OOP. 31 

0  1  A  3 1  7 

JSH 

ERROR 

b  r< 

l'P.3'1 

0  3  A  A  A  7 

1  S7 

CNT 

Ml.'. 

-io  >:i o 

OPAPAA 

.Ji-iP 

FOUR 

INITIAL  I  record  count. 

TURN  OFF  ALL  I/O. 

CLEAR  A  FOR  ERROR  COUNT 
SET  ERROR  COUNTER 
TURN  INTERRI l°T  OFF. 
INITIALIZE  DMA  1  TO  REAO  AOC- 
CONTROL  WORD  ONE. 


CONTROL  WORD  P. 

NHUF  IS  "WORDS  PER  RECORD". 
CONTROL  WORD  3. 

START  AOC. 

START  UiNAI  . 

INITIALIZE  DMAS  TO  READ  AOC. 
CM 


CW2 


CW3 

NKIt>  FI.  AC  CLEAR- SKIP  OMA1  13 11 S  Y  . 
ERROR  HALT. 

AKIR  FLAG  SET- SKIP  WHEN  DMA  I  RI)Y 
WAIT  FOR  UNA  I. 

S TART  ADC  1  S  T A 0 T  DMAS. 
INITIALIZE  ONA1  TO  PR  I TE  TAPE. 


cwi* 


Cw3 

LOAD  COMPLEMENT  OF  NUMBER  OF  RECOR 
SAVE  COUNTER 

STARTING  ADDRESS  OF  A-D  BUFFER 

BACK  IIP  FOR  OUTPUT  POINTER 
LOAD  MAG  TAPE  I  TE"  COMMAND 

SKIP  FLAG  SET-SKIP  WHEN  TAPE  RDY 
'•'AIT  UNTIL  TAPE  IS  READY. 

OUTPUT  COMMAND  WORD  Tl)  TAPE. 

START  DMA  I  TO  TAPE. 

START  CONVERTING  NUMBERS 

SKIP  FLAG  SET-SKIP  IF  DMA 1  FIN. 

WAIT  UNTIL  DMA  I  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARI TY  IS  OK. 

GO  TO  ERROR  ROUTINE-HAD  PARITY. 
INCREMENT  RECORD  COUNT. 


Figure  B-3.  ADC2A  Program  (continued) 

Best  Available  Copy 


q\  1 5  00234  060472  FIVE  LDA  J0B1 

mi6  00235  064455  lds  neb 

on  11  00236  106700  CLC  0 

nil  a  nn237  102066  HLT  66B _ 

31  i  9  332/13  014330  JSB  ENDFL 

0120  00241  014407  JSB  VOLEN 

0121  00242  014322  REWND 

0122  00243  02437  1  •J‘v'p  DEAD+1 

0123  00244  060442  FOUR  LDA  CNTLl 

0124  00245  102606  OTA  6 

0123  00246  106702  CLC  2 

0126  00247  060451  LOA  A0R1 

0127  00250  102602  OTA  2 


HALT  ON  RECORDS  COMPLETE  WITH 
LOAD  NUMBER  OK  ERRORS 
TURN  OFF  ALL  IYO  DEVICES* 

HLT--ENO  OF  PI  IN . 

PUSH  START  TO  SET  EOF 

SUBROUTINE  TO  END  VOLUME. 
TA°E  RF.WINO  ROUTINE. 

INITIALISE  DMA l  TO  READ  ADC* 


CW2 


0120  00251  102702 

0129  00252  06O443 

0130  00253  102602 

0131  00254  102207 

0132  00255  102007 

0133  00256  1 02307 

0134  00257  024256 

0133  00260  103714 

0136  00261  103706 

0137  002 62  060450 

0130  00263  102607 

0133  00264  106703 

0140  00265  060445 

0141  002  66  102603 

0142  00267  102703 

0143  00270  060446 

0144  00271  102603 

0145  00272  060443 

0146  00273  070416 

0147  00274  064454 

014ft  00275  074417 

0149  00276  044443 

O150  00277  060447 

0151  003110  000040 

0152  00301  102311 

0153  00302  024301 

01  3  4  00303  103  611 


0155 

00  3  '44 

1 03707 

015  6 

0O3O5 

01 4345 

01  37 

0000  6 

1 02307 

01  5S 

00307 

02 430 6 

01  59 

00310 

10251  1 

01  60 

•10  31  1 

O 1 0456 

01  61 

00312 

002002 

01  62 

0031  3 

01 431 7 

01  63 

0031  4 

034467 

01  (.A 

00315 

0241 62 

01  65 

0031  6 

(124234 

01  66 

•103  1  7 

0  10  00  0 

O!  67 

0O320 

034455 

01  60 

003  21 

1 24317 

01  69 

00  322 

000000 

0170 

4  0  323 

1  W231  I 

01  V  1 

0032  4 

OP 432 3 

STC  2 
LOA  NHIIF 
OTA  2 
SFC  7 
HLT  7 
SFS  7 
JMP 

STC  140.C 
STC  6»C 
LOA  CNTL2 
OTA  7 
CLC  3 
LOA  RAIJP2. 

OTA  3 
STC  3 
LOA  NBUFF 
OTA  3 
LOA  NO1.  IF 
STA  COUNT 
LOB  A 022 3 
STB  NUM 
A OB  NO"F 
LOA  OUT 
CLE 

SFS  l  IB 
JMP  *-l 
OTA  I  1 B * C 
STC  7  » C 
.ISA  CON VT 
SFS  7 
JMP  *-l 
L  I  A  1  1  0 
AND  MASK  I 
S'/A 

JSH  ERROR 
1 57  CNT 
J*|p  LOOP 
JMP  FIVE 
ERROR  NOP 

1ST  NEB 
JMP  error* I 
PEW NO  NOP 

SFS  1 1 B 
JM°  *-l 


CW3 

SKIP  IF  0MA2  IS  BUSY* 

ERROR  HALT. 

SKIP  IF  BUFFERS  IS  FULL. 

•/AIT  UNTIL  DMA2  FLAT,  IS  SET. 

START  DMA 1 . 

INITIALISE  0MA2  TO  WRITE  TAPE* 
CW1 

CW2 


CW3 

LOAD  COMPLEMENT  OF  .UMBER  OF  REC'J 
SAVE  IN  COUNTER 

STARTING  ADDRESS  OF  A-l)  BUFFER 
STORE  ADDRESS- -INPUT  POINTER 
BACK  up  THE  OUTPUT  POINTER 
LOAD  MAO  TAPE  -WRITE-  COMMAND 

SKIP  WHEN  TAPE  IS  READY* 

WAIT  UNTIL  TAPE  IS  READY • 

START  TAPE  MACHINE. 

START  DM A 2  TO  TAPE. 

START  CONVERTING  NUMBERS 
SKIP  WHEN  I1MA2  IS  FINISHED. 

WAIT  UNTIL  DM A 2  IS  FINISHED. 

GET  TAPE  STATUS  WORD « 

CHECK  PARITY  STATE. 

SKIP  IE  PARITY  IS  OK. 

BAD  PARITY. 

INCREMENT  RECORD  COUNT. 


PARITY  ERROR  ROUTINE. 
UPDATE  THE.  ERROR  COUNT 
RETURN  TO  MAIN  PROGRAM. 
REWIND  ROUTINE. 

SK1=  WHEN  TAPE  IS  READY. 
WAIT  UNTIL  TAPE  IS  READY • 


Figure  B-3.  ADC2A  Program  (continued) 
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)l  7  -* 

I- '32  5  OA  14  5  7 

LI  >4 

R  E 

GET  REWIND  COMMAND  VORll. 

HI  7  3 

10397,  1  037,1  1 

0  To 

no.  c 

REWIND  TAPE. 

0|  7  /i 

MO  <9  7  1  9  7139  9 

JNP 

REWVD,  I 

RETURN  TO  MAIN  PROGRAM. 

'0  7  -i 

M  |  7  A  * 

1133)  000030 

ENDFL 

N0  = 

SUBROUTINE  RETURN  ADI  iRE<s  . 

0177*  +  ***  TO  BKT'iPN 

TO  START- 

-SET  BIT 

"<3” 

0170* 

0 17  9 

00331  1 09  SO  I 

L  I A 

1 

LOAO  SWITCH  REG  I  ST' IRE 

01  AO 

00332  0000  111 

SLA 

CHECK  LEAST  SIGNIFICANT  BIT 

01  Ml 

07333  024  1 3  5 

JMP 

START 

JMP  TO  LOAO  DATA 

01  «'J  * 

01 R  3  +  *  *  *  *  SET  HIT  " 1 

y  to 

BACKSPACE  A 

SPECIFIED  NUMBER  OF  RECORDS. 

0 1  H  4  * 

0|  MS 

00334  oop  IPO 

SSA 

CHECK  BIT  ”1 5”. 

0|  M  7, 

MM3  3  5  39  /»7i  3  2 

JM3 

BACK 

JUMP  TO  S|  u ,  TO  RACK  SPACE  RECORD 

0|  R 7  + 
01  RR  *  * 
0  1  R  9  + 

■«  *  * 

HI  90 

0,03  3  A  1093  1! 

SF  S 

1  IB 

SKIP  WHEN  TAPE  IS  READY. 

HI  91 

‘-HI  3  37  024  33  7, 

JMP 

*-  ! 

01  90 

■10  3  40  0  AO  49(7 

LD4 

FILE 

GET  TAPE  EOF  COMMAND  WORD • 

01  9  3 

00341  | 03 A l 1 

OTA 

1  1  B »  C 

WRITE  F.-O-F. 

0 1  9  4 

00349  1  OP 3 l  1 

SES 

1  1  R 

01  9  5 

00343  024342 

JMP 

*- 1 

WAIT  UNTIL  TAPE  IS  READY. 

HI  9* 

01  97  + 

00344  124330 

JMP 

ENDFL, I 

RET  'RN  TO  MAIN  PROGRAM. 

0|9R**'**+  HON  VERT  I  NO 

SUBROUTINE  ***** 

01  99* 

023D*  A / 1 >  INPUT  Ml IMHER  S  ARK  CHANGED  TO  FORTRAN  FLOATING  WORDS. 


02  7  1  + 
0202 

3  0  3  4b 

003000 

CON  VT 

N0° 

SPACE  FOR  SUBROUTINE  RETURN  ADORE 

090  3 

003  47, 

1  7.0  4  1  7 

STTT 

LDA 

N 1 IM  ,  I 

LOAD  NUMBER  TO  BE  CONVERTED 

0  >0  4 

00  3  47 

9  1  9  47(7 

AND 

MSKK 

DROP  LEAST  SIGNFICANT  FIGURES! TWO 

090  S 

033  57 

001  7,9  3 

ELA, 

RAR 

SAVE  SIGN  IN  E  REG  I  STORE 

000  4 

■7  0  3  51 

A 

CME* 

INA 

CORRECT  SIGN-SET  EXPONENT  SIGN 

!!;>0  7 

HP  3  52 

001 32 s 

RAH. 

ERA 

MOVE  IN  BOTH  SIGN  BITS 

*  VI ,  i  er 

1 7000 1 

ST  A 

1  ,  I 

STORE  IN  ADDRESS  GIVEN  IN  3  REGIS 

•790  9 

003  5  4 

HO AMO  4 

I  NR 

UPDATE  THE  OUTPUT  ADDRESS 

(79  |  0 

0(7355 

1  7,0  4  t  7 

LDA 

NIIM,  I 

LOAD  NUMBER  AGAIN 

091  1 

'1035'-, 

0 1 047 I 

AND 

mskl 

DROP  ALL  BUT  LEAST  TWO  SIGNFICANT 

09  1  2 

00357 

031 323 

PAR, 

RAR 

ROTATE  AROUND  TO  THE  HIGH  ORDER  E 

no  J  y 

003  AO 

1 7  000 1 

STA 

1  .  I 

<X>)  /i 

00  3  41 

(VIA)  0  4 

CLE, 

INB 

UPDATE  THE  OUTPUT  ADDRESS 

<y> )  S 

r\ 

03441 7 

I 

NOM 

UPDATE  THE  INPUT  ADDRESS 

Y>  1  4 

•'•'Vs  7,3 

■  1 3  4  4  !  7, 

l  S  7 

COUNT 

UPDATE  THE  COUNTER, SKIP  IF  END 

OR  1  7 

oA 

0  2  4  3  4  7, 

JMP 

STTT 

09 1  n 

09  3  7,5 

1 9921 1 

sfc; 

1  1  H 

CHECK  TO  HE  SURE  TAPE  DIDN'T  GET 

72  1  9 

MM!*  A 

i  'v,nt>2 

HLT 

52B 

TAPE  DECK  AHEAD  OF  CONVERSION... 

*  W>  )  + 

VO  o  •  >  * 

mm  3  7,7 

124345 

JMP 

CON VT, 

I  SUBROUTINE  return . 

DEAD  SUBROUT I NEHEADER 

LABEL 

NOT  ACCEPTABLE. 

/i 

00379 

0  1  4329 

DEAD 

JSB 

REWNI) 

REWIND  AN  STANDBY. 

02  9  5 

'50  3  7  1 

1  0202  5 

HLT 

25B 

STOP  FOR  OPERATOR  ACTION 

.v;,1.  a 

3' 137  2 

»V,>  A\  I'M 

JMP 

1  (30  B 

RETURN  TO  START  OF  PROGRAM 

•1  >9  7  « 

THE 

OPERATOR 

IS  EXPECTED  TO 

SUPPLY  A  NEW  REEL  OF  TAPE-- 

'V,nv*  A  LABELED  ONE  BEFORE  POSHING  "RUN". 


Figure  B-3..  ADC2A  Program  (continued) 
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est  Available  Copy 


022  9  * 

0230**************** 

023  I  * 

0232*  SUBROUTINE  TO  FORWARD  SPACE  RECORD  ON  MAG  TAPE  UNIT 


0232* 
0233* 
023  4 
023  5 
M2  3  ft 
0237 
02 3  G 
0239 
02  A  0 
M2  A  1 
09  A  2 
02  A  3 

09  A  A 
09  A  5 
R2  Aft* 
02  A7  * 
02  A  9,  * 
0249  + 
09  5M* 
0251  * 
02  52* 
09  S3* 
09  5  4* 
025  5 
025ft 
02  57 
0252 
0259 
0260 
1 12ft  1 
M2  ft2 
09  ft  3 
09  ft  4 


0M373  MM00HM 
0037  4  0 60 40 5 
00375  1 03  ft  1  1 
0037ft  102311 
00377  024376 


MO  400 
00401 


1 0251 1 
0  1  0  40  ft 


FWDSP  NOP  RETURN  ADDRESS  OR  SUtfROUT  1NE  EXIT 

LOA  FWD  LOAD.  FORWARD  SPACE  RECORD  COMMAND 

OTA  11B.C  OUTPUT  COMMAND 

SFS  llfl  SKIP  WHEN  TAPE  UNIT  COMPLETED. 

JMP  *-l  WAIT  FOR  COMPLETION  OF  OPERATION 

L  I A  IIP  LOAD  STATUS  WORD 

AND  DWORD 

S7A  CHECK  FOR  TAPE  MARK 

CCA  SET  •’A”  TO  -  1  IF  TAPE  MARK  SENSED 

JMP  FWDSP. I  RETURN  TO  MAIN  PROGRAM. 

OCT  3  TAPE  COWMAN 0- - FORWARD  SPACE  R£COR 

OCT  200  MASK  F0°  SENSING  WHEN  TAPE  MARK  P 


00409  (1(12002  S7A 

0,1403  003400  CCA 

00 40 4  124373  JMP  FWD*: 

00  40  5  00M00 3  FWD  OCT  3 

0040ft  000200  DWORD  OCT  200 


UPON  RETURN- - 


IS  0 

IS  -1 


IF  NO  TPK 
IS  TAPE 


MARK  SENSED. 
MARK  DETECTED 


.SUBROUTINE 


ALLOWS  OPTION  OF  ENDING  VOLUME  OR 


00407  000000 
00410  102070 
00411  1025O1 
00412  002020 
00413  024135 
O0414  OI4330 
0041 5  1 24407 
004  1  ft *000000 
00417  000000 
09420  <130035 


VOL EN  NOP 

HLT  7 MB 
L  I  (A  | 

SSA 

JMP  START 
JSO  ENOKl. 
JMP  VOLKN.I 
COUNT  OCT  0 
NUM  OCT  0 
FILE  OCT  35 


SAVE  RETURN  ADDRESS  AREA 
HALT  FOR  OPERATOR  RESPONSE 
t-OAD  SWITCH  REG  I  STORE. 

CHECK  OPERATORS  INSTRUCT  I  UN 
PREPARE  TO  LOAO  DATA  SET- -Ml ILT I PLE 
PLACE  SECOND  FILE  MARK- -VOLUME  END 
RE  1  URN  TO  MAIN  PROGRAM. 

counter  in  convert  routine 
input  pointer  in  convex  routine 

E-O-F  COMMAND  WORD. 


0265*****  FORWARD  S^ACE 
09ft  ft* 

09  ft  V* 

•19  A  A  00421  •  ten 000  F'-iV' 
09 ' 9  00422  102014 

0?  0949.3  102501 

02  ,  i  00424  003(104 
0272  00425  07041ft 

0973  0042ft  014373 

0974  00497  03441ft 

09  7  5  00  4.30  02442ft 

097ft  O043|  194421 

'<'-71* 

I  l,J /A***  **  BACKSPACE  Silt: 
i  \o  7  9 

09  HD  0049'»  0  60441  BACK 


SPECIFIED  NUMBER  OF  RECORDS. 


OMi)  NOP 
HLT 


0  0  4  9  •-•  060441 
0043.3  O70/|t)5 
■104  34  0  14491 

00435  i ' 69 440 
■!’'40ft  070605 
■’  ’'4.3/  32  4135 


L  I A  1 
CMA, INA 
STA  COUNT 
JSB  FWDSp 
IS?  COUNT 

,JMP  +-  9 
JM*J  FWlJ.NO.  1 


LOA  I1R EC 
STA  FWD 
.ISO  FWD.NO 
LOA  F REG 
s  |'.0  K'-'0 
.IMP  START 


SUBROUTINE  r,E  TURN  ADDRESS. 

LOAD  NUMBER  OF  RECORDS  TO  FORWARD 
GENERATE  TWO'S  COMPLEMENT. 

STORE  COUNTER. 

GO  TO  S||R  TO  FORWARD  SPACE  ONE  RE 
CHECK  COUNTER. 

KEEP  IN  LOOP  UNTIL  SATISFIED. 

SUBROUTINE  return 


l.OAO  COMMAND  KD'<  BACK  SPACING  REG 
LOAD  COMMAND  IN  FWDSP  SUbrO'I  TliVri. 
GO  TO  Sup,.  TO  GET  NO.  ,!F  RECORDS 
LOAD  FORWARD  SPACE  COMMAND 
R*>Vuft«:  SUBROUTINE  Command  J -* i) . 

RREP.WE  TO  LOAD  DATA. 


Figure  B-3.  ADC2A  Program  (continued) 
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Best  Available  Copy 


K  ;,EC 

•k:  r 

FORWARD  s.’aCH  C  l  •  Wo. 

!  >--7 

•  '  *1 1  0  ’  :.'il 

:  J  irl  C 

DC  1 

41 

HACK  SPACH  0  ICO AND. 

' 

I  : -1  -■  t  -  ■  7  1  .1 

CNfL.I 

00 

r  1 0  ini 

4  O’  INT  VI 11.  I,ils'i)--N'l  "Ol.C"  AT  HN|)  OK 

*  >  •:  w 

1  vt/ri  1  7/>i 1 

N IK 

OK 

-19 A  A 

lUIKKEv  LHNGTH. 

i  *  '/  l 

.  1  )  1  -i-l 

■•1D.-1 

1  ii_:  r 

VI  \ 

TAP.-:  OUTPUT  TiUFKlv?  r'U  . 

•  "»i 

>.  X..-3  0  |  :  ■  >•* 

\  M 

OCT 

1  1 

talk,  output  i' 'fkhp  . 

'"Kl’l 

I  /  •  (1  .7 

V  V!f»'b 

ui*:i; 

-.v-s  vi 

!  ' '*<)  \ 

•7,,3| 

•Vf  r 

DOT 

3  1 

r\|5H  m h  c  1  ••'OW'D  Oku. 

v -* « >  /, 

1 ' *•  .'1 3 0  1  /  ■■'l  l 

C.  N  1  L  '-> 

DOT 

1  A  ’0  1  0 

OUNI-lUl.  -i) Nil  NO.  :»  F 00  D'lA. 

'1  *  </  S 

0  IASI  1  0  A3. 7  XI 

V)  -  1 

DO  T 

1 

fi  0 

■I  WO."  11'.  '3-: 

’>.  1 )  '-1 

nor 

1 1 4034 

0  ’07 

vr>;' 

•M  >  *  I  » 

DOT 

4  3  3  4 

■ 1 

V  *t|  V 

.  \  * 

DOT 

1  4  1  3  4 

■  V>or, 

iH/ri)  i*\  1  n  1 

MK-? 

1  1  f 

■' 

ST0°AI!H  KO’V  N'lMDK.P  OF  pa  1  <  Y  H~'Od 

’VVl  ) 

1  '  •  \  ■  '  •  \  \  ’> 

0  LO 

•)!*:  1 

y, \'K  TO  OHHCK  PA I  TV  DN  I'APK. 

*\Vl  1 

7  0  4  S  7  1  1  1  I  :  I 

DC  I 

1  1 

TAP'C  Cl)  ''iM  AM  0  -  -  P  Htv  I N  D  AND  STAND  -A  Y 

'Y\  *.  -■> 

1  I..A  ’  17/  (.(, 

ill  ILK  N 

tu:  i 

-  1  '  1 

H  H  A  D  |\  •/  LH’VGTH 

0.7  17 

03.1AI  |  707  00 

Hi  )A  0 

)0  T 

n  7  :i  -1 

LOAD  DATA  TO  COo;C  70:1, i  UP. 

070  4 

1.14  43  ix.10  1'1 

H  l.ir,0  V 

OCT 

1  A'10 1  0 

owa  control- -  us?;  unit  io 

07  ns 

3  HAD 

OCT 

S3 

nag  tapf.  Command  to  pk.au. 

070  A 

■  104  A/i  1  A"  7,o  A 

‘/t> 

OCT 

1  A  :>  7  0  A 

"1.70  / 

70  /)A:>  17)  !  A  ] 

LI 

OCT 

1  5 1  7  A  1 

•’n-  >*< 

1  1  /|»\/, 

^Ki; 

,MHi> 

HNTKR  K-H HP  OK  pHCoHDS  HH-v'H • 

770  o 

01447  0:10  10  1 

t:\it 

NOP 

PUT  3*S  CO.MPLHMHNT  OF  RF CORDS  H 

<n  |  m 

00470  177774 

y» 

OCT 

177774 

■Mask  TO  DROP  LHAST  TWO  SIGNIFICAN 

07  1  1 

OO.'i/l  O’V.run 

M  SKI. 

OCT 

3 

MASK  TO  DROP  ALL  BUT  LHAST  TWO  SI 

0310 

'IO/iV-3  177777 

JOB  1 

OCT 

777  7  7 

LOAOKD  INTO  "A"  WHHN  RHCORDS  HAWK 

.  17  1  7  * 

03  1  4  '■ 

S./'F.  HP  INITIAL  CONSTANTS  FOP 

FORTRAN  TAPI-:  FORMAT 

031  S 

ins  00 

org 

5000 

03  1  A 

MMSO'I  017157 

D!CC 

7734 

03  t  7 

00501  00003-.), 

OCT 

(1 

031  x 

(1 0  5  0 .117  1/,/, 

DHC 

7730 

031  <7 

00503  noo-uio 

OCT 

3 

t 

037  1 

\  MP'1  1 

ORG 

10 30 OH 

START  TO  SHT  DP  CONSTANTS. 

■  yyj  o 

1  M'»O0  0  |  7  1  S  1 

DHC 

7704 

BYTE  LENGTH  OF  BLOCK 

0.  3  0  3 

1  ’O'll  0  00  Oi,0 

OCT 

CONTROL  WORD 

13:  >  4 

1  ■13.13  11714/1 

DHC 

7  7RO 

BYTE  LENGTH  OF  LRKCL 

030^ 

1000.7  00.0  100 

OCT 

0 

CONTROL  WORD. 

A* 

3737  * 

'v«r!K-  this  is  necessary  si.no:  fort ran  will  not  accept 

vipr*  owe  type  dumps.  alksitk  ami;  lpkcl  mi ist  re  furnished. 

'VI  .T-'  *• 

'VIII  '  HALT  A  A  NO  7  (OCTAL)  MEAN  USER  LOADED  INPUT  DATA  FASTER 
"'7  7°'  t'HAN  TAPE  IS  LOADING  DATA- -SLOW  INPUT  PA  TO  1300:)  WORDS 

d?v>-  hi:-,’  SECOND  js  maximum  NATO 

■  n  a  a  * 

■'33  0-  HALT  (yfy - DA  I  A  LOAD  HD  pRi)PF.HLY--USER  CHECK 

)T*‘*  "it"  P'-'.o  I  s  ri:?f  io  S»CK  IK  ANY  T»\url  ERRORS 

mv*  w -:'•>••:  detec ted  doping  loading. 

07.7S* 

•■17  7  >1  HMD  '1:1 

•  *  NO  K.'POPSv 


Figure  B-3.  ADC2A  Program  (continued) 
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i 

i 


0001 

ASMB.l 

UB.L 

T 

0002 

1  6100 

ORG 

1 6100B 

0003 

1  6100 

000000 

title 

NOP 

000  4 

1  6101 

000000 

NOP 

000  5 

1  6102 

000000 

BEG  IN 

NOP 

0006 

1  6103 

106700 

CLC 

0 

0007 

16104 

103100 

CLF 

0 

000  8 

1  6105 

006400 

CLB 

0009 

1  6106 

062210 

LDA 

CW1 

0010 

1  6107 

10261 1 

OTA 

1  IB 

001  1 

1  61  10 

06221 1 

LDA 

CW2 

0012 

1  61  1  I 

10261 1 

OTA 

1  IB 

0013 

1  6112 

062220 

LDA 

ONE 

0014 

16113 

102006 

HALT1 

HLT 

6 

001  5 

161  14 

102501 

L  I A 

1 

02  1  6 

16115 

000000 

NOP 

0017 

1  61  1  6 

000000 

NOP 

0018 

1  61  17 

000000 

NOP 

0019 

1  6120 

002020 

SSA 

0020 

16121 

026174 

JMP 

REWND 

0021 

16122 

000000 

SPACE 

NOP 

0022 

16123 

003000 

CMA 

0023 

16124 

002004 

1NA 

0024 

16125 

07220. 

STA 

COUNT 

0025 

16126 

000000 

NOP 

0026 

16127 

062210 

LDA 

cwt 

0027 

16130 

10261 1 

OTA 

1 1  B 

0028 

16131 

10231 1 

SFS 

1  IB 

0029 

16132 

026131 

JMP 

*- 1 

0030 

16133 

036207 

ISZ 

COUNT 

0031 

16134 

026130 

JMP 

♦  -4 

0032 

16135 

062221 

LDA 

TWO 

0033 

16136 

000000 

HALT2 

NOP 

0034 

1  6137 

102006 

HLT 

6 

0035 

16140 

062212 

LDA 

Dt.Al 

0036 

16141 

102606 

OTA 

6 

0037 

16142 

106702 

CLC 

2 

0038 

16143 

062213 

LDA 

ADDRS 

0039 

1  6144 

102602 

OTA 

2 

0040 

16145 

102702 

STC 

2 

0041 

16146 

06221 4 

LDA 

WORDS 

0042 

16147 

102602 

OTA 

2 

0043 

16150 

10231 1 

SFS 

1  IB 

0044 

16151 

026150 

JMP 

*-| 

0045 

16152 

062215 

LDA 

TAPE 

0046 

16153 

10361 1 

OTA 

1  1B.C 

0047 

16154 

103706 

STC 

6.C 

00  48 

1  61  55 

102306 

SFS 

6 

0049 

1  61  56 

026155 

JMP 

*- 1 

0050 

16157 

000800 

CHECK 

NOP 

A  PROGRAM  TO  READ  A  TAPE  RECORD 
INTO  CORE  MEMORY. 

CLEAR  ALL  CONTROL  BITS.  I/O  OFF 
TURN  OFF  INTERRUPT  SYSTEM. 

CLEAR  B  REGISTER. 

FORWARD  SPACE  PAST  FILE  MARK. 

BACKSPACE  TO  FIRST  RECORD. 

(A)  =  177777  OCTAL. 

HALT  NO.  I 

LOAD  SWITCHES  WITH  NUMBER  OF 
RECORDS  TO  BE  SKIPPED.  OR  WITH 
THE  REWIND  CODEISWIS  UP). 

PUSH  "RUN"  WHEN  READY. 

SKIP  IF  SW1S  IS  DOWN. 

GO  TO  REWIND! SW 1 5  UP). 

GET  2’S  COMPLEMENT  OF  (A). 

STORE  (A)  IN  "COUNT". 

SPACE  FORWARD  CONTROL  WORD. 


WAIT  UNTIL  TAPE  IS  READY. 

INCR  COUNT-SKIP  IF  ZERO. 

GO  BACK  AND  SPACE  AGAIN. 

(A)  *  000007  OCTAL. 

HALT  NO.  8  PUSH  "RUN"  TO  GO. 
INITIALIZE  DMA I  TO  READ  TAPE. 


CORE  ADDRESS. 


WORDS  PER  RECORD. 


WAIT  UNTIL  TAPE  IS  READY. 

TAPE  COMMAND  WORD. 

READY  THE  TAPE. 

START  DMA I  READING  TAPE. 

WAIT  UNTIL  DMA  I  HAS  FINISHED. 
ROUTINE  TO  CHECK  PARITY. 


Figure  B-4.  ADC3  Program 
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0051 

1  61  60 

10251  1 

LIA 

1  IB 

0052 

1  61  61 

012216 

AND 

MASK1 

0053 

1  61  62 

002002 

SZA 

0054 

1  61  63 

026167 

JMP 

ERROR 

0055 

16164 

000000 

NOP 

0056 

1  6165 

006400 

CLB 

0057 

161  66 

0261 12 

JMP 

halt; -i 

0058 

1  61  67 

000000 

ERROR 

NOP 

0059 

16170 

062222 

LDA 

THREE 

00  60 

16171 

006004 

INB 

00  61 

16172 

102006 

HLT 

6 

0062 

1  61  73 

126167 

JMP 

ERROR. I 

0063 

1  6174 

000000 

REWND 

NOP 

0064 

1  6175 

102311 

SFS 

1  IB 

00  65 

16176 

026175 

JMP 

*-l 

00  66 

16177 

062217 

LDA 

REW 

0067 

1  6200 

10361 1 

OTA 

1  IB.C 

00  68 

1  6201 

10231 1 

SFS 

1  IB 

00  69 

1  6202 

026201 

JMP 

*-l 

0070 

1  6203 

106700 

CLC 

0 

007  1 

1  6204 

062223 

LDA 

FOUR 

0072 

1  6205 

102006 

LAST 

HLT 

6 

0073 

1  6206 

026102 

JMP 

BEGIN 

0074 

1  6207 

000000 

COUNT 

NOP 

007  5 

16210 

000003 

CW1 

OCT 

3 

007  6 

1  621  1 

000041 

CW2 

OCT 

41 

0077 

16212 

120010 

DMA  I 

OCT 

120010 

0078 

16213 

102000 

ADDRS 

OCT 

102000 

0079 

16214 

174000 

WORDS 

DEC 

-2048 

0080 

16215 

000023 

TAPE 

OCT 

23 

0081 

16216 

000002 

MASK) 

OCT 

2 

0082 

16217 

000201 

REW 

OCT 

20] 

0083 

1  6220 

177777 

ONE 

OCT 

177777 

0084 

1622  1 

000007 

TWO 

OCT 

000007 

00  G  5 

1  6222 

070707 

THREE 

OCT 

070707 

0086 

1  6223 

llllll 

FOUR 

OCT 

mm 

0087 

END 

**  NO  ERRORS* 

LOAD  TAPE  STATUS  WORD. 

PARITY  BIT  MASK. 

SKIP  IF  < A )  *  0. (PARITY  OK) 
BAD  PARITY. 

PARITY  OK.  (A)s 1 77777  OCTAL. 


PARITY  CHECK-COMPUTER  WILL 
STOP  WITH  070707 (OCTAL >  IN  (A). 
INCREMENT  THE  B  REGISTER. 

PARITY  ERROR  HALT. 

CONTINUE. 

TAPE  REWIND  ROUTINE. 


(A)  a  mill  OCTAL. 


READ  TAPE  CONTROL  WORD. 

MEMORY  INPUT- ADDRESS«2000  OCTAL. 
NO.  WORDS  PER  RECCRD-2048. 

TAPE  CONTROL  WORD. 

PARITY  BIT  MASK  WORD. 


Figure  P-4,  ADC3  Program  (continued) 
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0001  ASMB.B.A.L.C 


0002 

00 « 00 

ORG 

I00B 

PROGRAM  STARTS  AT  100  OCTAL. 

0003* 

FIRST  OPERATION 

IS  TO  CHECK 

FOR  LFGAL  LABELED  TAPE. 

0004* 
000  5 

00100 

060456 

LDA 

HDCON 

LOAD  FIRST  CONTROL  WORO. 

000  6 

00101 

102606 

OTA 

6 

TYPE  OF  OPERATION  AND  UNIT 

USE 

0007 

00102 

106702 

CLC 

2 

PREPARE  FOR  SECOND  CONTROL 

WOR 

0008 

00103 

060455 

LDA 

HOAD 

SECOND  CONTROL  WORD. 

000  9 

00104 

102602 

OTA 

2 

INPUT  ADDRESS  IN  CORE  FOR 

FIRS 

0010 

00105 

102702 

STC 

2 

PREPARE-- 

001  1 

00106 

060454 

LOA 

HOLEN 

LENGTH  OF  DATA  FIELD  to  BE 

REA 

0012 

00107 

102602 

OTA 

2 

00!  3 

00110 

060457 

LOA 

READ 

LOAD  READ  COMMAND  FOR  MAG. 

TAP 

0014 

001  1  1 

10361 1 

OTA 

1 1B.C 

START  TAPE  DECK. 

0015 

001  12 

103706 

STC 

6.  C 

START  THE  DMA  CHANNEL  #  4. 

0016 

003  1  3 

10231 1 

SFS 

1  IB 

WAIT  FOR  TAPE  DECK. 

0017 

00114 

024113 

JMP 

*-l 

0018 

0013  5 

060460 

LDA 

VO 

LOAD  "VO"  FROM  360  HEADER 

VOLI 

0019 

00116 

020700 

XOR 

700B 

CHECK  FIRST  DATA  WORD. 

0020 

00117 

002002 

S2A 

0021 

00120 

024405 

JMP 

DEAD 

FIRST  WORD  DID  NOT  COPARE- 

-FOR 

0022 

00121 

060461 

LDA 

LI 

LOAD  "LI"  FROM  360  HEADER 

RECO 

0023 

00122 

020701 

XOR 

701B 

0024 

08123 

002002 

SZA 

CHECK  SECOND  DATA  WORD. 

002  5 

09124 

024405 

JMP 

DEAD 

002  6 

00125 

014410 

JSB 

FWDSP 

SKIP  SECOND  FILE 

0027 

00126 

014410 

JSB 

FWOSP 

SKIP  THIRD  FILE. 

0026 

0OI27 

014410 

JSB 

FWDSP 

CHECK  FOURTH  FILE  FOR  TAPE 

MAR 

002  9 

00130 

034000 

ISZ 

0 

0030 

00131 

024405 

JMP 

DEAD 

TAPE  MARK  NOT  HERE  AS  SHOULD  B 

003!  * 

0030* 

0033* 

0034*  DATACON-CONVERT  PROGRAM 

0035*  DATA  READ  FROM  ANALOG  TO  DIGITIAL  CONVERTER 

0036*  IS  OUTPUTTED  ON  TAPE  IN  IBM  360/50  FORTRAN 

0037 *  FLOATING  WORD  FORMAT •  MAGNITUDE  OF  OUTf-UT 

0038*  IS  LESS  THAN  ONE. 

0039*  MAXIMUM  DATA  INPUT  RATE  IS  13  KILOWORDS  PER  SECOND 

0040* 

00  4 1  * 


0042 

00132 

000000 

START 

NOP 

00  4  3 

00133 

182000 

HLT 

0044 

80  1  34 

080080 

NOP 

LOAD  SW'S  WITH  NO.  RECORDS. 

00  45 

00135 

102501 

LIA 

1 

W146 

00136 

M13O04 

CMA. 

INA 

GENERATE  TWOS  COMPLEMENT 

0047 

00137 

(170462 

STA 

REC 

STORE  2 1 S  COMPL  IN  REC. 

0048 

00140 

000000 

ENTER 

NOP 

0049 

00141 

102000 

HLT 

0050 

00142 

000080 

NOP 

PUSH  RUN  WHEN  READY  TO  START  PGM 

005 1 

001  43 

060462 

LDA 

REC 

0052 

00  1  44 

070463 

STA 

CNT 

INI  IALIZE  RECORD  COUNT. 

0053 

00145 

1867(10 

CLC 

0 

TURN  OFF  ALL  I/O. 

Ml  5  4 

00146 

002400 

CLA 

CLEAR  A  FOR  ERROR  COUNT 

00  55 

00147 

870451 

STA 

NER 

SET  ERROR  COUNTER 

0056 

00150 

103108 

CLF 

0 

TURN  INTERRUPT  OFF. 

0057 

00151 

060436 

FIRST 

LDA 

CNTL1 

INITIALIZE  DMA!  TO  READ  ADC. 

Figure  B-5  ADC4  Program 


CONTROL  WORD  ONE 


0058 

001  5? 

102606 

OTA 

6 

00  5  9 

00153 

106702 

CLC 

2 

0060 

00154 

060445 

LDA 

ADRI 

0061 

00155 

102602 

OTA 

2 

0062 

00156 

102702 

STC 

2 

00  63 

00157 

060437 

LDA 

NBUF 

0064 

00160 

102602 

OTA 

2 

00  6  5 

001  61 

103714 

STC 

14B.C 

00  6  6 

00160 

103706 

STC 

6.C 

0067 

00163 

060436 

LOOP 

LOA 

CNTH 

0068 

001  64 

102607 

OTA 

7 

00  6  9 

00165 

106743 

CLC 

3 

0070 

00174 

060446 

LOA 

ADR2 

0071 

00167 

102603 

OTA 

3 

0072 

00170 

102703 

STC 

3 

0073 

00171 

060437 

LOA 

NBUF 

0074 

00172 

102603 

OTA 

3 

0075 

04173 

102206 

SFC 

6 

007  6 

00  1  7  4 

102006 

HLT 

6 

00/7 

00175 

102306 

SFS 

6 

0078 

00176 

024175 

JMP 

*-l 

00  7  9 

00177 

000000 

NOP 

00  8  0 

00200 

103714 

STC 

1  4B#C 

0081 

00201 

143707 

STC 

7.C 

0082 

00202 

064444 

1  IRD 

LDA 

CNTL2 

308J 

00203 

102606 

OTA 

6 

008  4 

00204 

106/02 

CLC 

8 

IM8  5 

00205 

060440 

LDA 

RA0R1 

0086 

00206 

102602 

OTA 

8 

008  7 

04207 

102742 

STC 

8 

00  8  8 

O02IO 

064442 

LDA 

NBUFF 

008  9 

0421  1 

1026U2 

OTA 

8 

0090 

0  0212 

064437 

LDA 

NBUF 

0091 

44213 

C  7  0  4  3  3 

STA 

COUNT 

0092 

002  1  4 

064447 

LDB 

ADR10 

cm  9  3 

14215 

474434 

STB 

NUM 

00  9  4 

0021  6 

044437 

ADB 

NBUF 

(10  7  5 

002  1  7 

060443 

LDA 

OUT 

0096 

04220 

400040 

CLE 

0097 

40221 

10231 1 

SFS 

1  IB 

00  9  8 

0  0222 

074221 

JMP 

♦  -I 

0099 

00221 

10I61  1 

OTA 

1  1B.C 

01.10 

04:j;'4 

103706 

STC 

6»  C 

0101 

114225 

414362 

JSB 

CONVT 

01  02 

00226 

102306 

SFS 

6 

0103 

0022  7 

024226 

JMP 

♦  -I 

0104 

00230 

10251 1 

L  I A 

1  IB 

010  5 

04231 

010452 

AND 

MASK1 

01  0  6 

042.1;: 

002002 

SZA 

01  0  / 

40234 

414341 

JSB 

ERROR 

4106 

04' ‘44 

4 14463 

ISZ 

CNT 

01  0  9 

44235 

024251 

JMP 

FOUR 

41  1  4 

44236 

064467 

LDA 

JOBI 

01  1  ' 

'  '  ‘  1  / 

064451 

LDB 

NER 

41  1  . 

1 02006 

HLT 

6 

4  14 

442  0 

0  1  m352 

JSB 

ENOFL 

01  1  -1 

44  1  • 

0  1  4  42  4 

JSB 

VOLEN 

CONTROL  WORD  2. 

NBUF  IS  "WORDS  PER  RECORD". 
CONTROL  WORD  3. 

START  ADC. 

START  DMA! • 

INITIALIZE  DMA2  TO  READ  ACC. 
CWI 


CW2 


CW3 

SKIP  FLAG  CLEAR-SKIP  DMA I  BUSY. 
ERROR  HALT. 

SKIP  FLAG  SET- SKIP  WHEN  DMA I  RDY 
WAIT  FOR  DMA I . 


START  ADC  t  START  DMA2. 
INITIALIZE  DMA  I  TO  WRITE  TAPE. 


CW2 


CWJ 

LOAD  COMPLEMENT  OF  NUMBER  OF  RECOR 
SAVE  COUNTER 

STARTING  ADDRESS  OF  A-D  BUFFER 

BACK  UP  FOR  OUTPUT  POINTER 
LOAD  MAo  TAPE  "WRITE"  COMMAND 

SKIP  FLAG  SET-SKIP  WHEN  TAPE  ROT 
WAIT  UNTIL  TAPE  iJ  READY. 

OUTPUT  COMMAND  WORD  TD  TAPE. 

START  DMA  I  TO  TAPE. 

START  CONVERTING  NUMBERS 
SKIP  FLAG  SET-SKIP  IF  DMA I  FIN. 
WAIT  UNTIL  DMA |  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

GO  TO  ERROR  ROUTINE-BAD  PARITY. 
INCREMENT  RECORD  COUNT. 

HALT  ON  RECORDS  COMPLETE  WITH 
LOAD  NUMBER  OF  ERRORS 
(A)  REGISTER  •  70707******* 

PUSH  START  TO  GET  EOF  MARK***** 
SUBROUTINE  TO  END  VOLUME. 


Figure  B-5.  ADC4  Program  (continued) 
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PI  I  5 

00243 

014344 

JSB 

REWND 

011  6 

00244 

106700 

CLC 

0 

0117 

00245 

064451 

LOB 

NER 

011 8 

00246 

060470 

LOA 

J0B2 

0119 

00247 

102006 

HLT 

6 

0120 

002  50 

024405 

JMP 

DEAD 

0121 

00251 

060436 

FOUR  LDA 

CNTL1 

0122 

00252 

102606 

OTA 

6 

0123 

00253 

106702 

CLC 

2 

0124 

00254 

060445 

LDA 

ADR1 

0125 

00255 

102602 

OTA 

2 

0126 

002S6 

102702 

STC 

2 

0127 

00257 

060437 

LOA 

NBUF 

0128 

00260 

102602 

OTA 

2 

0129 

00261 

102207 

SFC 

7 

0130 

002  62 

102007 

HLT 

7 

0131 

00263 

102307 

SFS 

7 

0132 

00264 

024263 

JMP 

♦  -1 

0133 

00265 

103714 

STC 

14B.C 

0134 

00266 

103706 

STC 

6.C 

0135 

00267 

060444 

LOA 

CNTL2 

0136 

C0270 

102607 

OTA 

7 

0137 

00271 

10671 

CLC 

3 

0138 

00272 

060441 

LDA 

RADR2 

0139 

00273 

102603 

OTA 

3 

0140 

00274 

102703 

STC 

3 

01  41 

00275 

060442 

LDA 

NBUFF 

0142 

00276 

102603 

OTA 

3 

0143 

00277 

(160437 

LOA 

NBUF 

0144 

00300 

070433 

STA 

COUNT 

0145 

00301 

064450 

LOB 

ADR20 

0146 

00302 

074434 

STB 

NUM 

0147 

00303 

044437 

ADB 

NBUF 

0148 

00304 

060443 

LDA 

OUT 

01  49 

00305 

008040 

CLE 

0150 

003O6 

10231 1 

SFS 

1  1 B 

0151 

0030/ 

024306 

JMP 

♦  -1 

01  52 

00310 

10361 1 

OTA 

1  1B.C 

0153 

0031  1 

103707 

STC 

7.C 

0154 

00"M2 

014362 

JSB 

CONVT 

0155 

00313 

102307 

SFS 

7 

0156 

00314 

824313 

JMP 

*-l 

0157 

00315 

10251 1 

LIA 

1  IB 

0158 

803  1  6 

010452 

AND 

MASKl 

0159 

00317 

082002 

SZA 

0160 

00320 

014341 

JSB 

ERROR 

0161 

00321 

034463 

1SZ 

CNT 

0162 

80322 

024163 

JMP 

LOOP 

8163 

08323 

060467 

LDA 

JOBI 

0164 

08384 

064481 

LUB 

NER 

0165 

80325 

102007 

HLT 

7 

0166 

00326 

000000 

NOP 

0167 

00327 

014352 

JSB 

ENUFL 

0168 

00330 

014424 

JSB 

VOLEN 

0169 

00331 

014344 

JSB 

REWND 

(11  70 

00332 

000000 

NOP 

0171 

00333 

106700 

CLC 

0 

TAPE  REWIND  ROUTINE. 

TURN  OFF  AM.  I/O  UNITS. 

LOAD  ERROR  COUNT 

HALT  ON  NORMAL  JOB  COMPLETE- - 

LOAD  A  NEW  REEL  OF  TAPE  AND  PUSH 
RUN  TO  REPEAT  ENTIRE  PROGRAM. 
INITIALIZE  DMA  I  TO  READ  ADC. 


CW2 


CW3 

SKIP  IF  DMA2  IS  BUSY. 

ERROR  HALT. 

SKIP  IF  BUFFER2  IS  FULL. 

WAIT  UNTIL  DMA2  FLAG  IS  SET. 
START  ADC. 

START  DMA I. 

INITIALIZE  DMA 2  TO  WRITE  TAPE. 
CWI 


CW2 


CW3 

LOAD  COMPLEMENT  OF  NUMBER  OF  RECO 
SAVE  IN  COUNTER 

STARTING  ADDRESS  OF  A-D  BUFFER 
STORE  ADDRESS--INPUT  POINTER 
BACK  UP  THE  OUTPUT  POINTER 
LOAD  MAG  TAPE  "WRITE"  COMMAND 

SKIP  WHEN  TAPE  IS  READY. 

WAIT  UNTIL  TAPE  IS  READY. 

START  TAPE  MACHINE. 

START  DMA2  TO  TAPE. 

START  CONVERTING  NUMBERS 
SKIP  WHEN  DMA2  IS  FINISHED. 

WAIT  UNTIL  0MA2  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

BAD  PARITY. 

INCREMENT  RECORD  COUNT. 


LOAD  NUMBER  OF  ERRORS 
RECORDS  COMPLETE.  PUSH  RUN  TO 
WRITE  EOF  AND  REWIND  TAPE. 

GO  TO  END-OF-FILE  ROUTINE. 

END  VOLUME  OR  START  MULTIPLE  DA 
GO  TO  REWIND  ROUTINE. 

TURN  OFF  ALL  I/O  UNITS. 


Figure  B-5  ADC4  Program  (continued) 
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0172 

00334 

060470 

LDA 

JOBS 

0173 

00335 

064451 

LDB 

NER 

LOAD  NUMBER  OF  ERRORS 

01  7  4 

00336 

102007 

HLT 

7 

PUSH  REN  TO  REPEAT  ENTIRE  PGM. 

01  75 

00337 

024405 

FIVE 

JMP 

DEAD 

0176 

00340 

024163 

JMP 

LOOP 

GO  READ  ANOTHER  RECORD. 

017  7 

00341 

000000 

ERROR 

NOP 

PARITY  ERROR  ROUTINE. 

01  7  8 

003  42 

034451 

ISZ 

NER 

UPDATE  THE  ERROR  COUNT 

0179 

00343 

124341 

JMP 

ERROR.  I 

RETURN  TO  MAIN  PROGRAM. 

0180 

00344 

000000 

REWND 

NOP 

REWIND  ROUTINE. 

01  81 

00345 

10231 1 

SFS 

1  IB 

SKIP  WHEN  TAPE  IS  READY. 

0182 

00346 

024345 

JMP 

*-l 

WAIT  UNTIL  TAPE  IS  READY. 

01  83 

003  47 

060453 

LDA 

REW 

GET  REWIND  COMMAND  WORD. 

0]  84 

003  33 

10361 1 

OTA 

1  18.  C 

REWIND  TAPE. 

01  8  5 

003  51 

124344 

JMP 

REWND,  I 

RETURN  TO  MAIN  PROGRAM. 

0186 

00352 

000000 

ENDFL 

NOP 

END-OF-FILE  ROUTINE. 

0187 

00  353 

1023! 1 

SFS 

1  IB 

SKIP  WHEN  TAPE  IS  READY. 

01  88 

00354 

024353 

JMP 

*-  1 

0189 

00355 

060435 

LDA 

FILE 

GET  TAPE  EOF  COMMAND  WORD. 

0190 

00356 

10361 1 

OTA 

1  1B.C 

WRITE  E-O-F. 

01  91 

00357 

10231 l 

SFS 

1  IB 

01  92 

00360 

024357 

JMP 

*-l 

WAIT  UNTIL  TAPE  IS  READY. 

01  9  3 

00361 

124352 

JMP 

ENDFL.  I 

RETURN  TO  MAIN  PROGRAM. 

01  9  4 

00  3  62 

oooo'oo 

CON  VT 

NOP 

SPACE  FOR  SUBROUTINE  RETURN  ADORE 

01  *>5 

00363 

1 604 3 4 

STTT 

LDA 

NUM,  I 

LOAD  NUMBER  TO  BE  CONVERTED 

01  96 

003  64 

0  10.46  5 

AND 

MSKK 

DROP  LEAST  SIGNFICANT  FIGURESITWO 

01  97 

30365 

031 623 

EL  A. 

RAR 

SAVE  SIGN  IN  E  REGISTURE 

01  98 

00366 

002204 

CME. 

INA 

CORRECT  SIGN-SET  EXPONENT  SIGN 

01  99 

00367 

001325 

RAR, 

ERA 

MOVE  IN  BOTH  SIGN  BITS 

020  0 

00370 

1  70001 

STA 

1  ,  1 

STORE  IN  ADDRESS  GIVEN  IN  B  REGIS 

020  1 

003  71 

006004 

INB 

UPDATE  THE  OUTPUT  ADDRESS 

0202 

00372 

1 60434 

LDA 

NUM,  I 

LOAD  NUMBER  AGAIN 

020  3 

00373 

0 10466 

AND 

MSKL 

DROP  ALL  BUT  LEAST  TWO  SIGNFICANT 

020  4 

00374 

001323 

RAR, 

RAR 

ROTATE  AROUND  TO  THE  HIGH  ORDER  E 

020  5 

00375 

1  70001 

STA 

1  •  I 

020  6 

0037  6 

006104 

CLE. 

INB 

UPDATE  THE  OUTPUT  ADDRESS 

020  7 

00377 

034434 

ISZ 

NUM 

UPDATE  THE  INPUT  ADDRESS 

02  0  8 

00400 

034433 

ISZ 

COUNT 

UPDATE  THE  COUNTER, SKIP  IF  END 

020  9 

00  40  1 

024363 

JMP 

STTT 

0210 

00  402 

1  0221 1 

SFC 

1  IB 

CHECK  TO  BE  SURE  TAPE  DIDN’T  GET  '  .. 

021  1 

00  403 

1 02066 

HLT 

6  6B 

0212 

00  404 

1 24362 

JMP 

CON  VT  » I 

BRANCH  BACK  TO  MAIN  PROGRAM. 

02  I  3  * 

(RM*  DEAD  SUB  ROUTINE  - -  HEADER  LABEL  NOT  ACCEPTABLE. 

02  1  5*  TAPE  IS  REWOUND  AND  MAG  TAPE  UNIT  RETURNED  TO  LOCAL. 

OBI  6* 

ft»l 7  00405  0  1  A3 44  DEAD  JSB  REWND  REWIND  AN  STANDBY. 

0218  30406  103025  HLT  25B  STOP  POR  OPERATOR  ACTION 

0219  00407  024100  JMP  1000  RETURN  TO  START  OP  PROGRAM 

0220*  THE  OPERATOR  IS  EXPECTED  TO  SUPPLY  A  NEW  REEL  OF  TAPE-- 
022 t*  A  LABELED  ONE  BEFORE  PUSHING  "RUN”. 

0222* 

02  23**************** 

1**2  4  * 

022 S*  SUBROUTINE  TO  FORWARD  SPACE  RECORD  ON  MAG  TAPE  UNIT 

02  2  6* 

0227  0041 0  OOOOC0  FWDSP  NOP  RETURN  ADDRESS  OR  SUBROUTINE  EXIT 

K!;>H  00411  061)422  LDA  FWD  LOAD  FORWARD  SPACE  RECORD  COMMAND 

Figure  3-5,  ADC4  Program  (continued) 
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Best  Available  Copy 


022  9 

00412 

10361 1 

OTA 

1 1B.C 

OUTPUT  COMMAND 

0230 

00413 

10231 1 

SFS 

1 

IB  SKIP  WHEN  TAPE  UNIT  COMPLETED 

0231 

00414 

824413 

JMP 

*- 1 

WAIT  FOR  COMPLETION  OF  OPERATION 

0232 

00415 

10251 1 

LIA 

1  IS 

load  STATUS  WORD 

0233 

00416 

018423 

AND 

CWORD 

0234 

00417 

002002 

SZA 

CHECK  FOR  TAPE  MARK 

02  3  5 

00420 

003400 

CCA 

SET  **A”  TO  -1  IF  TAPE  MARK  SENSED 

023  6 

00421 

124410 

JMP 

FWOSP* 1 

RETURN  TO  MAI..  PROGRAM. 

0237 

00422 

80000 J 

PWD 

OCT 

3 

TAPE  COMMAND- -FOR WARD  SPACE  RECOR 

0238 

00423 

000200 

CWORD 

OCT 

200 

MASK  FOR  SENSING  WHEN  TAPE  MARK  P 

023  9* 

0240* 

UPON  RETURN-- 

"A" 

IS  0  IF 

NO  TPE  MARK  SENSED. 

0241  * 

"A" 

IS  -I  IS  TAPE  MARK  DETECTED 

0242* 

0243* 

0244* 

0245* 

SUBROUTINE  ALLOWS  OPTION  Of  ENDING  VOLUME  OR 

0246* 

CONTINUE  LOADING  DATA  UNDER  MULTIPLE 

0247* 

DATA 

SET  IBM 

360  OPTION. 

0248* 

024  9* 

02  50 

00424 

000000 

VOLEN 

NOP 

SAVE  RETURN  ADDRESS  AREA 

0251 

00425 

102070 

HLT 

788 

HALT  FOR  OPERATOR  RESPONSE 

02  52 

00426 

102501 

LIA 

1 

LOAD  SWITCH  REGISTURE. 

02  5  3 

00427 

002820 

SSA 

CHECK  OPERATORS  INSTRUCTION 

0254 

00430 

0241  ■> 

JMP 

START 

PREPARE  TO  LOAD  DATA  SET--MULTIPLE 

0255 

00431 

01435c 

JSB 

ENUFL 

PLACE  SECOND  FILE  MARK-- VOLUME  END 

02  5  6 

00  432 

124424 

JMP 

VOLEN* I 

RETURN  TO  MAIN  PROGRAM. 

0257 

00433 

000000 

COUNT 

OCT 

0 

COUNTER  IN  CONVERT  ROUTINE 

02  5  8 

00434 

888000 

NUM 

OCT 

0 

INPUT  POINTER  IN  CONVERT  ROUTINE 

0259 

00435 

080035 

FILE 

OCT 

35 

E-O-F  COMMAND  WORD. 

ft?  60 

00436 

100014 

CNTLI 

OCT  100014 

CONTROL  WORD --NO  "CLC"  AT  END  OF 

0261 

00437 

174150 

NflUF 

DEC  -1944 

BUFFER  LENGTH. 

0262 

00440 

000500 

RAORI 

OCT 

500 

TAPE  OUTPUT  BUFFER  *|. 

0263 

00441 

0(0200 

RADH2 

OCT 

10200 

TAPE  OUTPUT  BUFFER  #2. 

0264 

00442 

t  7031  4 

NBUfF 

DEC 

-3892 

0265 

00443 

800031 

OUT 

OCT 

31 

TAPE  WRITE  COMMAND  WORD. 

U?66 

00444 

1  688 1 0 

CNTL2 

OCT 

I630IO 

CONTROL  WORD  NO.  2  FOR  DMA. 

0267 

00445 

104334 

ADR  1 

OCT 

184334 

0268 

80446 

1  14JJ4 

A0R2 

OCT 

114934 

02  6  9 

00447 

004334 

ADR  10 

OCT 

4334 

14?  70 

00450 

014334 

ADR28 

OCT 

14034 

0271 

08451 

080800 

NFR 

OCT 

0 

storage  for  number  or  paritt  erro 

02/2 

00452 

080802 

HA  =«l 

OCT 

2 

MASK  TO  CHECK  PARITT  ON  TAPE. 

a>n 

00453 

800101 

REW 

OCT 

101 

TAPE  COMMAND- -REW INQ  ANO  STANO  BY 

0F74 

30454 

177660 

HULEN 

OCT 

-120 

HEADER  LENGTH 

0275 

0(1455 

188700 

HDAO 

OCT 

180700 

LOAD  DATA  TO  CORE  7008  UP. 

0276 

00456 

1 680 | 0 

HOCON 

OCT 

160010 

DMA  CONTROL--USE  UNIT  10 

HB77 

00457 

088823 

READ 

OCT 

23 

MAG  TAPE  COMMANO  TO  REA0. 

0278 

00468 

162726 

VO 

OCT 

162726 

027V 

08461 

151761 

U 

OCT 

151 761 

*1283 

00462 

880008 

REC 

NOP 

ENTER  NUMBER  OF  RECORDS  HERE. 

«l?81 

08463 

880000 

CNT 

NOP 

PUT  2 * S  COMPLEMENT  or  RECORDS  M 

«>R? 

08464 

(»0'O35 

FL 

OCT 

35 

TAPE  E-O-F  COMMANO  WORD. 

«*rt3 

80463 

1  77/74 

MSKK 

OCT 

177774 

MASK  TO  OROP  LEAST  TWO  S 1 GN l 6 I CAN 

(lJH4 

*(0466 

000003 

MSKL 

OCT 

3 

MASK  TO  DROP  ALL  BUT  LEAST  TWO  St 

00467 

07  7777 

JO  3 1 

OCT 

77777 

LOADED  INTO  "A"  WHEN  RECOROS  HAVE 

Figure  B-5  ADC4  Program  (continued) 
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0386 

3047(1 

070707 

J082  OCT 

70707 

LOADED  INTO  *,A••  --END  OT  JOB 

02  8  7* 

0283* 

SET 

UP  INITIAL  CONSTANTS  TOR 

TORTRAN  TAPE  TORMAT 

028  9 

00500 

ORG 

500B 

0290 

00  500 

017150 

DEC 

7784 

(1291 

00501 

000000 

OCT 

0 

0292 

00502 

017144 

DEC 

7780 

0293 

00503 

0O0O.33 

OCT 

0 

0294* 

02  9  5 

10200 

ORG 

10200B 

START  TO  SET  UP  CONSTANTS. 

0296 

10200 

017150 

DEC 

7784 

BYTE  LENGTH  OT  BLOCK 

0297 

10201 

000000 

OCT 

0 

CONTROL  WORD 

02  9  8 

10202 

017144 

OEC 

7780 

BYTE  LENGTH  OT  LRECL 

0209 

10203 

000000 

OCT 

0 

CONTROL  WORD. 

0300  • 

030 1  * 

0302* 

THIS 

IS  NECESSARY  SINCE 

TORTRAN  WILL  NOT  ACCEPT 

030  3* 

CORE 

TYPE  DUMPS. 

ALL  RECORDS  MUST  BE  HEADED 

0304* 
03  0  5* 
0306* 
030  7* 
030  8* 
0309* 
03  I  i>  ♦ 
03I  I  * 
0318* 
03 » J  * 
03 1  o 


WITH  RECORD  LENGTH  AND  BLOCK  LENGTHS  WHERE  APPLICABLE 

HALT  66( OC TAL >  MEANS  TAPE  DRIVE  LOADED  NUMBERS  TASTER  THAN 
THE  CONVERT  PROGRAM  WAS  ABLE  TO  CONVERT  THE  OUTPUT 
DATA--THIS  SHOULO  NEVER  HAPPEN 

HALT  6  ANO  7  ARE  ERROR  HALTS  UNLESS  “A"  REGISTURE  IS  LOADEO 
WITH  JO0I  OR  J0B2  --  OPERATOR  CORRECTION  IS  TO  SLOW 
OOWN  THE  INPUT  RATE  OT  DATA- -MAX IMUH  RATE  IS 
APPROXIMATELY  13.000  WOROS  PER  SECOND. 

ENU  77B 

0  ERRORS* 


Figure  3-5  ADC4  Program  (continued) 


140 


TO01  A  SMB#  B>  L»  A»  C >  T 

°O02  00  100  ORA  100B  PROGRAM  .STARTS  AT  t  OH  OCTAL. 

HO  OS* 

000  4* 

000  5  + 

0006*  DATACON-CON VERT  PROGRAM 

0007*  DATA  READ  FROM  ANALOG  TO  DIGITIAL  CONVERTER 

GGOP*  TS  OUTPUTTED  ON  TAPE  IN  I3M  360/St)  FORTRAN 

0009*  FLOATING  WORD  FORMAT.  MAGNITUDE  OF  OUTPUT 

0010*  IS  LESS  THAN  ONE. 

0011*  MAXIMUM  DATA  INPUT  RATE  IS  13  K I LO WORDS  PER  SECOND 


00  1  2  + 
m  1 3  * 

00  1  4 

00  1  00 

00000 0 

BEGIN 

NOP 

001  5 

00  101 

0  60  402. 

LDA 

F  ILE 

001  6 

00102 

102611 

OTA 

1  IB 

001  7 

00103 

000000 

START 

NOP 

001  ft 

00104 

1 02000 

HL.T 

001  9 

00105 

000000 

NOP 

0020 

001  0  6 

102501 

L  IA 

1 

002  1 

00107 

003004 

CMA  i 

.  INA 

0022 

001  10 

070421 

STA 

REC 

002  3 

001  1  1 

1 02001 

ENTER 

HLT 

1 

002  A 

00  1  12 

000000 

NOP 

002  5 

001  1  3 

060421 

LDA 

REC 

(-H2  6 

001  1  4 

070422 

STA 

CNT 

002  7 

00  1  1  5 

1  116700 

CLC 

0 

0:120 

o-ll  1  6 

002400 

CL  A 

002  9 

00  1  1  7 

0  7  0  41 6 

STA 

NER 

0030 

00  1  20 

1 03  I  00 

CLF 

0 

0031 

0-0121 

060403 

FIRST 

LDA 

CNTL1 

0032 

00122 

1 02606 

OTA 

6 

003  3 

00  I  2  3 

1  -16702 

CLC 

p 

003  A 

00  1  2  4 

06041 2 

LDA 

ADR  1 

0035 

00  125 

1  02  60)2 

OTA 

2 

003  6 

00  126 

1 02702 

STC 

2 

003  7 

00  127 

060 404 

LDA 

NS3UF 

003K 

00130 

1 02602 

0TA 

2 

003  9 

00 1  31 

1 0371 4 

STC 

1  4D. C 

00  40 

001  32 

1 03706 

STC 

6.0 

004  1 

0013-3 

060403 

LOOP 

LUA 

C.NTL1 

0042 

00134 

1  02  60  7 

OTA 

7 

004  3 

00135 

1  067O3 

CLC 

3 

00  44 

00  1  36 

060413 

LDA 

ADR2 

00  45 

00137 

1 02603 

OTA 

3 

004  6 

001  40 

1 02703 

STC 

00  4  7 

00  1  41 

0  60  40  4 

LOA 

NUUK 

00  4  H 

00  1  42 

1  02. 60  3 

OTA 

3 

00  4  9 

0  0  1  43 

1  0220  6 

SFC 

6 

0-150 

"11  44 

1 02006 

HLT 

6 

0  15  1 

00 1  45 

1 02306 

SFS 

6 

h  !52 

0  0  1  4  6 

024145 

JMP 

*-! 

0  1 5  3 

00  1  47 

DO AO 00 

NOP 

0  154 

0  0  1  50 

103714 

STC 

1  40.  C 

0  '5  5 

001  51 

1 03707 

s  rc 

7  .c: 

(-1  1 5  6 

00  1  5P 

.16  1411 

THIRD 

Llm 

CNTL2 

0  157 

111  53 

|  :  ‘  *?  fs 

OTA 

6 

LOAD  COMMAND  WORD  FOR  FILE  MARK. 


LOAD  SW'.S  WITH  NO.  RECORDS. 

GENERATE  TWOS  COMPLEMENT 
STORE  2'S  COM PL  IN  REC. 

PUSH  RUN  TO  START  LOADING  DATA. 
PUSH  RUN  WHEN  READY  TO  START  PGM 

INITIALIZE  RECORD  COUNT. 

TURN  OFF  ALL  I/O. 

CLEAR  A  FOR  ERROR  COUNT 
SET  ERROR  COUNTER 
TURN  INTERRUPT  OFF. 

INITIALIZE  DMA  1  TO  READ  ADC 
CONTROL  WORD  ONE. 


CONTROL  WORD  2. 

NBIJF  IS  . .  PER  RECORD". 

CONTROL  WORD  3. 

-START  ADC. 

-START  DMA  1  . 

INITIALIZE  DMA-2  TO  READ  ADC. 
CW1 


CW2 


CW3 

SKIP  FLAG  CLEAR-.SK  IP  DMA  1  BUSY. 
ERROR  HALT. 

-SKIP  FLAG  SET-SKIP  WHEN  DMA  1  ROY 
WAIT  UNTIL  ijMAl  IS  FINISHED. 


START  ADC  START  DMA  2  • 
INITIALIZE  DMA  I  TO  WRITE  TAPE. 


Figure  B-6.  ADC5  Program 
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BOSS 

00  1  s/| 

1  a/,7  12 

CLC 

2 

3/1  >  A 

AO  1  s  S 

A  7,0.10  S 

LOA 

RA0R1 

0  IGA 

A  A  1  SA 

1  -72  7,0  2 

OTA 

o 

AAA  1 

a  A  1  S7 

I  A  9  7  A  q 

■STC 

9 

00  6  P 

fio  1  AO 

0  A  1/10  7 

LOA 

NO'  IFF 

•VI  A3 

001  A] 

1  op  AA2 

OTA 

o 

•■'•  1 A  A 

10  1  A  1 

■1  7,. 1  /HI  /l 

LOA 

NBUF 

A  IAS 

00  1  A  .7 

0  70/100 

«TA 

COUNT 

'  H  A  A 

Oil  A /i 

0  Ail  A]  A 

LOB 

A  O  R  |  ‘ 

:n  a  7 

no;  as 

0  7/1/1  >1 

STB 

NUM 

0  )  A  R 

•'0  1  //, 

0  A  A  49  A 

A  OB 

NBUF 

0  1  AO 

70  1  A  7 

oaa/ii  n 

LOA 

our 

!+ 1 7  (1 

00 1  7:7 

O'"/' 0  40 

CLE 

007  1 

001  7  1 

1  1231  1 

SFS 

1  ID 

A  1 7  2 

70  1  70 

.12917  1 

JMP 

+  -| 

117  3 

•'•'!  73 

1 03  A!  1 

OTA 

II  H»C 

07  7  0 

00  1  7/1 

1  03  7  0  7, 

src 

A,C 

10  7  S 

nil  7  s 

<7  1  434A 

JSB 

CON  VT 

VI 7  A 

no  i  77, 

1 0230 A 

SFS 

A 

VI 7  7 

00  1  77 

09.11  7  A 

JMP 

*-  1 

0  1  7  S 

noono 

m2  sit 

L  IA 

1  1  B 

007  9 

00201 

0  1  141  7 

AND 

MASK  1 

I-)*  ) 

DOOUP 

00200!? 

S  7,3 

00 1; ; 

0  ’’OO  3 

0  1  ,17  A  3 

USB 

ERROR 

Oil -A  p 

0000/7 

03-1/1  a  9 

I  S  7 

CiMT 

O' to  A 

oooos 

0A/|99  A 

JMP 

FOUR 

A  IV.  4 

0  120  A 

0  AO  /IP  5 

L  DA 

JOB  1 

a  i  R  S 

IA'1^07 

A  A  /I  /1 1  A 

Loa 

NER 

00  A  A 

702  1  0 

1 0230 A 

SFS 

A 

PAG  7 

0  7  2  1  t 

02/i2  1  0 

JMP 

*-l 

00  BP 

oo  O  1  2 

1  A/,  7  0/1 

CLC 

0 

009  9 

00213 

1  .0  2 .7  A  A 

hlt 

6AB 

i.v,  9!! 

0:72 !  A 

0  ,  A  3  3  A 

JSB 

ENUKL 

no  9 1 

oaRI  S 

n l A37 1 

jsa 

VOLF.N 

0-199 

.102  I  A 

0  1  A  32 A 

JSR 

REWNO 

0.193 

00217 

1  M  A7-K3 

CLC 

0 

AO  9  4 

OORO'.i 

M AAA  1  A 

LI)H 

NER 

Oi  l  9  -> 

00221 

-1  A-1/|9A 

LUA 

JOH2 

00  9  a 

mmo;)': 

1 0200 A 

HLT 

6 

l  )•  1 9  7 

■  1.-22  3 

71. 10903 

NOP 

00  0  9 

i»0'>94 

09  41  OH 

JMP 

BEG  IN 

00  9  9 

"1i.|  A2  S 

00 '7  (7  no 

NOP 

0!  .70 

■  1  7  22  A 

0/3403  FOUR 

LOA 

CNTL1 

01  o  I 

a  o?27 

1 09 AO A 

OTA 

6 

•life 

0  12  30 

1 0/702 

CLC 

2 

• '  I  0  A 

0  09  3  1 

"1A0412 

LIJA 

ADR  1 

U!  0  4 

0  '7  9  3  9 

1  32  7.02 

OTA 

2 

0  1  !■'  S 

00'  133 

I  '19702 

STC 

2 

0]  a  A 

0  7,0  40  4 

l,OA 

NBUF 

0)  0  7 

0:1 90S 

1  09  7,39 

OTA 

2 

;A  1  A  9 

0  '2  3  7-. 

1 09207 

SFC 

7 

01  !'  A 

00937 

1  02170  7 

HLT 

7 

'll  I  A 

0’  12  7t:i 

10230  7 

Sr’S 

7 

'111 

,A  „1 9  /,  1 

024940 

JMP 

*-  1 

oi  i  ;> 

3:12-19 

1 0  3714 

STC 

1  AH ,  C 

01  1  A 

■I '19/1.3 

1  '13  70  A 

s  re 

A,  C 

11  !  4 

)■:  J  4  A 

1 1  7-  '41  1 

LDA 

CNTL2 

CW2 


CW3 

LOAD  COMPLEMENT  OK  NUMBER  OF  RF.COR 
SAVE  COUNTER 

STARTING  ADDRESS  OF  A-D  BUFFER 

BACK  Up  FOP  OUTPUT  POINTER 
LOAD  MAG  TAPE  "WRITE"  COMMAND 

SKIP  FLAG  SET-SKIP  '/.'HEN  TAPE  RDY 
WA  I T  UNTIL  TAPE  IS  READY . 

O'irPIIT  COMMAND  WORU  TO  TAPE. 

START  DMA  1  TO  TA°E. 

START  CONVERTING  NUMBERS 

SKI®  FLAG  SET-SKIP  IF  DMA  1  FIN. 

WAIT  "\-YIL  DMA  I  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

GO  TO  ERROR  ROUT IN E- HAD  PARITY- 
INCPKMEN I  'ECO PR  COUNT. 

HALT  ON  RECORDS  COMPLETE  WITH 
LOAD  NUMBER  0,  ERRORS 
WAIT  FOR  TAPE  DECK  TO  FINISH. 

CLEAR  ALL  I/O 

HALT  FOR  OPERATOR  ACTION. 

POSH  STAR”  TO  GET  EOF  MARK***** 
SUBROUTINE  TO  END  VOLUME. 

TAPI  REWIND  ROUTINE. 

TURN  OFF  ALL  I/O  UNITS. 

LOAD  ERROR  COUNT 

HALT  ON  NORMAL  JOB  COMPLETE - 

LOAD  A  NEW  REEL  OF  TAPE  AND  PUSH 
RUN  TO  REPEAT  ENTIRE  PROGRAM. 


INITIALIZE  DMA  I  TO  READ  ADC. 


CV2 


CW3 

SKIP  IF  DM A 2  IS  BUSY • 

ERROR  HALT. 

SKI°  IF  BUFFERS  IS  FULL. 

WAIT  UNTIL  DMA 2  FLAG  JS  SET. 
START  ADC. 

START  DMA  1  . 

INITIALIZE  DMA2  TO  WRITE  TAPE. 


Figure  B-6.  ADC5  Program  (continued) 
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01  I  5 

at  1 6 

0!  I  7 
31  I  h 
31  1  9 
3123 

3121 

3122 

3123 

3124 

3125 

3126 

3127 
(112  8 
3129 
3133 

3131 

3132 

3133 

3134 

313  5 
31  3  6 
0137 
31  38 
31  39 
31  43 
01  41 
31  42 
31  43 

314  4 
31  4  b 
31  46 
01  47 
01  4  8 
01  49 
01  53 
015  1 
3152 
0153 
01  54 
015  5 
3!  5  6 
3157 
31  58 
31  59 
.1!  63 
31  61 
3162 
0163 
31  64 
II  65 

0166 
01  67 
01  68 
31  69 
31  7  3 
31  7  I 


'  08245 

■  00246 

03247 
002  S3 

33251 

33252 
332  S3 
33254 
30255 

33256 

33257 
03263 

33261 

33262 
00263 
iK)  264 
00 265 

33266 

33267 
30273 
3327) 

33272 

33273 

33274 
3327  5 

33276 

33277 

33333 
33331 
30302 
33333  : 
03334 
'■'033  5 
03336  ( 
33337  i 
33313  ( 

33311  i 

33312  > 

30313  1 

30314  | 

3331  5  i; 
33316  1 
30317  <• 
3(1320  !! 

30321  (1 

30322  3 
00323  3 
03324  3 

33325  1 

33326  0 
33337  I 
03330  0 
33331  3 
00332  1 
33333  I 
0.0334  0 
303.35  1: 


5  102637 

6  106733 

7  063406 
3  132603 

1  102703 

2  060437 

3  102633 

4  363434 

5  070433 

6  064415 

7  074431 
1  344434 
1  (3  60413 
?  330040 
1  1 3231  I 
i  324263 

>  103611 

>  1 03737 
’  014346 
I  102337 

324270 
1  132511 
l  013417 
i  332032 
014323 
334422 
324133 
060425 
06441  6 
I  02337 
•324332 

1 06703 
102077 
0.30033 
014336 
014371 
0  1  4.326 
333300 
1 36700 
060426 
0.  44 1  6 

r  2007 

300300 

330303 

324100 

324133 

0 03000 

03441 6 

124323 

0303(73 

10231  1 

0.24327 

363420 

13361  1 

1  32  7  |  1 

324333 

124326 


ERROR 


REWNQ 


OTA 

CLC 

LDA 

OTA 

STC 

LDA 

OTA 

LDA 

STA 

toa 

STB 

A  0.9 

LOA 

CLE 

NFS 

JMP 

OTA 

STC 

JS8 

SFS 

JMP 

L1A 

AND 

S7A 

JSB 

X  S  7 

JMP 

LDA 

LOU 

SFS 

JMP 

CLC  l 

hi.  r 

NO  p 
JSB  ( 
JSB  i 
JSU  f 
NOP 
CLC  ( 
LOA  . 
LOB  n 
ML  T  7 
NOP 
NOP 
JMP  B 
JMP  L 
NOP 
IS7  N 
JMP  E 
NOP 
SFS  ! 
JMP  * 
LOA  R 
OTA  1 
SFS  1 
,JMP  * 
JMP  Ri 


*  7 
:  3 

(  RADR2 
1  3 
:  3 

I  N9 OFF 
i  3 

i  N8UF 
i  COUNT 
ADR20 
MUM 
NBilF 
OUT 

1  18 

4-1 

1  1B,C 

7,0 

CONVT 

7 

4-1 
1  1H 

MASK! 

ERROR 

CVT 

LOOP 

JOB! 

NER 

7 

4-1 

0 

77o 

ENOFL 
VO  LEV 

reivno 


BEGIN 

LOOP 

NER 

ERROR,  I 


REW 

1  1  B,  0 
1  I  H 
4-1 

RE'.'NO,  1 


LOAD  COMPLEMENT  OF  NUMBER  OF  RECO 
SAVE  IN  COUNTER 

STARTING  AOORESS  OF  A-D  BUFFER 
STORE  ADDRESS-- INPUT  POINTER 
BACK  UP  THE  OUTPUT  POINTER 
LOAD  MAG  TAPE  "WRITE"  COMMAND 

SKIP  WHEN  TAPE  IS  READY . 

'/(Air  UNTIL  TAPE  IS  READY* 

START  TAPE  MACHINE. 

START  DM42  T3  TAPE. 

•START  CONVERTING  NUMBERS 
SKIP  WHEN  DM A 2  IS  FINISHED. 

WAIT  UNTIL  DM A 2  IS  FINISHED. 

GET  TAPE  STATUS  WORD. 

CHECK  PARITY  STATE. 

SKIP  IF  PARITY  IS  OK. 

BAD  PARITY. 

INCREMENT  RECORD  COUNT. 


LOAD  NUMBER  OF  ERROR'S 

WAIT  FOR  TAPE  DECK  TO  FINISH. 

CLEAR  ALL  I/O  DEVICES. 

RECORDS  COMPLETE.  Push  RUN  TO 
WRITE  EOF  AND  REWIND  TAPE. 

GO  TO  EMD-OF-FILE  ROUTINE. 

END  VOLUME  OR  START  MULTIPLE  DA 
GO  TO  REWIND  ROUTINE. 

TURN  OFF  ALL  I/O  UNITS. 

LOAD  NUMBER  OF  ERRORS 

PUSH  REN  TO  REPEAT  ENTIRE  PGM. 

LOAD  NEW  TAPE4************  ** 

GO  REAO  ANOTHER  RECORD* 

PARITY  ERROR  ROUTINE. 

UPDATE  THE  ERROR  COUNT 
RETURN  TO  MAIN  PROGRAM. 

REWIND  ROUTINE. 

SKIP  WHEN  TAPE  IS  READY. 

WAIT  UNTIL  TAPE  IS  READY. 

GET  REWIND  COMMAND  WORD. 

REWIND  TAPE. 

SKIP  WHEN  TAPE  IS  REWOUND. 

RETURN  TO  MAIN  PROGRAM. 


Figure '8-6.  ADC5  Program  (continued) 
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fl|  79 
01  7  3 
nt  7  4 
01  7  5 
01  76 
0177 
0178 
01  79 
01  80 
0181 
0182 
01  83 
0189 
01  85 
01  5  6 
01  8  7 
018  8 
Ml  8  9 
01  90 
01  91 
01  99 
01  93 

019/1 

0195 
01  9  6 
01  97 
01  9R 
01  99* 
•'200* 
02  M  1  * 
020  2* 
020  3* 
0209* 
020  5* 


00  3  36 
00337 
00390 
00391 
00  392 
00393 
03399 
00395 
00396 
00  3  47 
00350 
00351 
00  352 
00353 
00354 
00355 
003  5  6 
00357 
003  60 
30361 
00362 
003  63 
00  3  64 
003  65 
00366 
003  67 
00370 


ooonoo 
I  0231  I 
024337 
060402 
10361  I 
t  0231  1 
024343 
1 24336 
000 000 
I  60  40 1 
010923 
001 623 
002204 
00) 325 
1 7000 1 
006009 
1  60  90  1 
0 1 0424 
001 323 
1 7000 1 
0061 04 
03440 1 
034400 
024347 
10221 1 
1 02059 
124346 


ENDFL  NOP 
SFS 
JMP 
LDA 
OTA 
SF.8 
JMP 
JMP 

CON  VT  NOP 

STTT  LDA 
AND 
FLA, 
CM  EC, 
PAP, 
STA 
I  NO 
LDA 
AND 
PAP, 
STA 
CLE, 
ISZ 
IS  7 
JMP 
SFC 
HLT 
JMP 


I  IB 
*-  1 
FILE 
I  18,  C 
1  18 
*-l 

ENDFL,  I 

NUM,  I 

MSKK 

PAP 

INA 

EPA 

1  ,  I 

NUM,  I 
MSKL 
PAR 
1  ,  I 
IN  8 
NUM 
COUNT 
STTT 
1  18 
52H 

CON VT,  I 


END-OF-FILE  ROUTINE. 

SKIP  WHEN  TAPE  IS  READY. 

GET  TAPE  EOF  COMMAND  WORD. 

WRITE  E-O-F. 

WAIT  UNTIL  TAPE  IS  READY. 

RETURN  TO  MAIN  PROGRAM. 

SPACE  FOR  SUBROUTINE  RETURN  ADDRE 
LOAD  NUMBER  TO  BE  CONVERTED 
DROP  LEAST  SIGNFICANT  FIGUWESCTWO 
SAVE  SIGN  IN  E  PEGI STUPE 
CORRECT  SIGN-SET  EXPONENT  SIGN 
MOVE  IN  BOTH  SIGN  BITS 
STORE  IN  ADDRESS  GIVEN  IN  H  REGIS 
UPDATE  THE  OUTPUT  ADDRESS 
LOAD  NUMBER  AGAIN 

DROP  ALL  RUT  LEAST  TWO  SIGNFICANT 
ROTATE  AROUND  TO  THE  HIGH  ORDER  E 

UPDATE  THE  OUTPUT  ADDRESS 
UPDATE  THE  INPUT  ADDRESS 
UPDATE  THE  COUNTER, SKIP  IF  END 

CHECK  TO  BE  SURE  TAPE  DIDN’T  GET 

ERROR  HALT- - SER 101  IS . 

BRANCH  BACK  TO  MAIN  PROGRAM. 


SI  18 ROUT  INE 


020  6 

003  71 

000  Ol'IO 

volen 

NOP 

090  7 

0  0  3  72 

1 02070 

HLT 

70B 

020  8 

00373 

•160(10  1 

LDA 

1 

020  9 

00374 

002020 

SSA 

02 1  0 

00375 

0:24  103 

JMP 

START 

09  I  1 

0  0376 

0 1 4336 

JSR 

ENDFL 

OR  I  p 

003  77 

1 2437 1 

JMP 

VOLEN, I 

'"P  1  3 

0040  0 

0000 00 

COUNT 

OCT 

'*21  4 

(JO  90  1 

O' If.  oou 

NUM 

OCT 

3 

OP  I  5 

00402 

000235 

FILE 

OCT 

35 

oi»|  6 

0  0/,.  13 

1 2001 4 

0NTL1 

OCT 

1 2001 4 

n?  i  v 

00404 

1741 42 

i\IBUF 

DEC 

-  1  953 

0'>  1  ft 

DO  90S 

000503 

RAORt 

OCT 

500 

091  9 

00406 

010200 

RADR2 

OCT 

1  0900 

(129  0 

0  '  4/17 

1 70300 

N8UFF 

DEC 

-3904 

rr-p  i 

O' 1. 'I)  M 

00003 1 

OUT 

OCT 

31 

004  1  1 

1  60  MO 

CNTL2 

OCT 

1 600  1  U 

■;  ’"8 

>04  1  9 

1 0  4  3 4  9 

AU«  1 

OCT 

1  0  4.3-12 

f,  J  5  /, 

114  13 

1 1 4142 

A  DR. 2 

OC  1' 

1  1  4  ;l  42 

1  1  .1 

U  1  4  |  4 

' 14  3  4  9 

ADR  1  0 

OUT 

004342 

)•*•*  6 

0041  5 

0  1  40  42 

A0920 

OCT 

0 1 4042 

n-.p  1 

o  ■ )  4  1  6 

n  i  jo  13 

NCR 

oc  r 

0 

u  yn: 

u  ‘417 

o  ■  i  i  u  1 2 

MASK  1 

OCT 

2 

ALLOWS  OPTION  OF  ENDING  VOLUME  OR 
CONTINUE  LOADING  'DATA  UNDER  MULTIPLE 
UATA  SET  IBM  360  OPTION. 


SAVE  RETURN  ADDRESS  AREA 
HALT  FOR  OPERATOR  RESPONSE 
LOAD  SWITCH  REG  I  STUPE 
CHECK  OPERATORS  INSTRUCTION 
PREPARE  TO  LOAD  DATA  SET- -MULTI PLE 
PLACE  SECOND  FILE  MARK- -  VOLUME  END 
RETURN  TO  MAIN  PROGRAM. 

COUNTER  IN  CONVERT  ROUTINE 
INPUT  POINTER  IN  CONVERT  ROUTINE 
F.-O-F  COMMAND  WORD . 

CONTROL  WORD  NO.  I  FOR  DMA. 

SHORT  BUFFER  LENGTH 
TAPE  OUTPUT  BUFFER  « 1. 

TAPE  OUTPUT  BUFFER  42. 
length  OF  TAPE  buffer. 

TAPE  WRITE  COMMAND  WORD. 

CONTROL  "  i;i>  no.  V.  FOR’  IJMA. 

A-U  INPUT  DUFFER  "I. 

A-U  JN’UT  BUFFER  '! 2  • 

SHORT  BUFFER  » 1 . 

SHORT  BUFFER  #2. 

STORAGE  FOR  NUMBER  OF  PARITY  ERRO 
MASK  TO  CHECK  PARITY  ON  TAPE. 


Figure  B-6.  ADC5  Program  (continued) 
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022  9 

00420 

000201 

REV 

OCT 

201 

T«*»E  REWIND  COMMAND  word. 

0230 

00421 

000900 

REC 

NOP 

ENTER  NUMBER  OF  RECORDS  HERE. 

0231 

00422 

30000 

CNT 

NOP 

PUT  2’S  COMPLEMENT  OF  RECORDS  H 

02  3  2 

00423 

1  77774 

MSKK 

OCT 

177774 

MASK  TO  DROP  LEAST  TWO  SIGNIFICAN 

0233 

00424 

000003 

MSKL 

OCT 

3 

MASK  TO  DROP  ALL  BUT  LEAST  TWO  SI 

0234 

00425 

077777 

JOB  1 

OCT 

77777 

LOADED  INTO  "A"  WHEN  RECORDS  HAVE 

023  5 

00426 

070707 

J0B2 

OCT 

70707 

LOADED  INTO  "A"  --END  OF  JOB 

023  6* 

0237* 

SET 

UP  INITIAL  CONSTANTS  FOR 

FORTRAN  TAPE  FORMAT 

32  3  8 

00  500 

ORG 

533B 

0239 

00500 

017200 

DEC 

7808 

02  40 

3050! 

003000 

OCT 

0 

0241 

00502 

017174 

DEC 

7804 

0242- 

00533 

000000 

OCT 

0 

0243* 

0244 

10200 

ORG 

1 02003 

START  TO  SET  UP  CONSTANTS. 

02  4  5 

1  0200 

017200 

DEC 

7808 

BLKSIZE  ENTRY. 

0246 

10201 

300000 

OCT 

0 

CONTROL  WORD 

02  4  7 

10202 

017174 

DEC 

7804 

LRECL  SI7TE. 

02  4  8 

10203 

oooooo 

OCT 

0 

CONTROL  WORD. 

02  4  9* 

3251*  THIS  IS  NEf'cSSAH Y  SINCE  FORTRAN  WILL  NOT  ACCEPT 

0352*  CORE  TYPE  t,UMPS.  ALL  RECORDS  MUST  BE  HEADED 

0353*  WITH  RECORD  LENGTH  AND  BLOCK  LENGTHS  WHERE  APPLICABLE 

0254* 

(1255*  HALT  66 < OCTAL '  MEANS  TAPE  DRIVE  LOADED  NUMBERS  EASTER  THAN 
0256*  THE  CONVERT  PROGRAM  WAS  ABLE  TO  CONVERT  THE  OUTPUT 

0251*  DATA- -TH I S  SHOULD  NEVER  HAPPEN 

02  58* 

0259*  HALT  6  AND  7  ARE  ERROR  HALTS  UNLESS  "A"  REGISTURE  IS  LOADED 
0260*  WITH  .JOB  1  OR  JOBS  --  OPERATOR  CORRECTION  IS  TO  SLOW 

0261*  DOWN  THE  INPUT  RATE  OF  DATA- -MAXIMUM  RATE  IS 

0262*  APPROXIMATELY  13.309  WORDS  PER  SECOND. 

0263  END  77B 

**  NO  ERRORS* 


Figure  B-6  ADC5  Program  (continued) 
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0001 

0002  07000 

0003  07000  102077 

0004  07001  103714 

0005  07002  102314 

0006  07003  027002 

0037  07004  106514 

0008  07005  102501 

0009  07006  002020 

0010  07007  027000 

0011  .'7010  027002 

0012 

**  NO  ERRORS* 


ASMB,8.L,T»A,C 

ORS  7000B 
START  HOT  778 

STC  148.C 
SFS  I  46 
JMP  *-| 

LIB  1 4B 
L1A  1 
SSA 

JMP  START 
JMP  START+2 
END 


STOP  FOR  CONVENIENCE 

START  THE  A-D  CONVERTOR 

SKIP  IF  DATA  READY 

WAIT  FOR  NEXT  DATA  WORD 

LOAD  THE  DATA  WORD 

PICK  UP  OPERATOR  DATA  WORD 

IF  15  BIT  IS  UP  --  STOP 

GO  BACK  AND  STOP 

GO  BACK  AND  WAIT  FOR  NEXT  DATA 


WOR 


Figure  B-7.  DIAG1  Program 
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0031 

ASMB iB/Lii 

i  T # C 

00  0  2 

00100 

ORE, 

1008 

000  3 

00  1  00 

102037 

HLT 

7 

STOP  FOR  RECORD  LENGTH 

000  4 

00101 

102501 

Lift 

1 

LOAD  RECORD  LENGTH 

000  5 

00  1  02 

003004 

CMA# 

INA 

GENERATE  THE  TWOS  COMPLEMENT 

000  6 

00103 

070147 

STA 

CW3 

SAVE  THE  RECORD  LENGTH 

00  0  7 

00104 

002400 

CLA 

CLEAR  FOR  RECORD  COUNTER 

000  8 

00103 

070153 

STA 

SAVE 

SAVE  THE  COUNTER 

000  9 

00106 

0601 55 

START  LDA 

SAVE 

LOAD  THE  RECORD  COUNTER 

001  0 

00107 

0641 55 

Lua 

SAVE 

001  1 

001  10 

102076 

HLT 

7  6B 

001  2 

00111 

002004 

1NA 

UPDATE  THE  COUNTER 

00 1  3 

00112 

070 1 5S 

STA 

SAVE 

SAVE  THE  UPDATED  COUNTER 

001  4* 

001  5» 

INITIALIZE 

DATA  STORAGE  AREA 

001  6* 

001  7 

00  1  1  3 

0  6(11  33 

LDA 

8  EON 

LOAD  STARTING  ADDRESS 

001  8 

00114 

064130 

LOG 

COUNT 

LOAD  COUNTER 

001  9 

001  1  3 

074131 

STB 

TEMP 

STORE  COUNTER 

00  2  0 

0011ft 

064152 

LDB 

FILL 

LOAD  CLEARING  WORD 

0021 

00117 

174000 

STB 

0#  I 

STORE  CLEARING  WORD  IN  ADDRESS  IN 

0022 

00120 

002004 

1NA 

GENERATE  NEXT  ADDRESS 

0023 

00121 

034131 

ISZ 

TEMP 

CHECK  COUNTER 

002  4 

00122 

0241 1 7 

JMP 

»-3 

KEEP  GOING 

002  S 

O0I23 

000000 

NOP 

002  ft 

00124 

0  60 1  4  3 

LUA 

CW1 

LOAD  FIRST  CONTROL  WORD 

002  7 

00I23 

1 02606 

UTA 

ft 

0,19  ft 

0012ft 

1  36702 

cm; 

2 

PREPARE  FOR  SECOND  CONTROL 

WORD 

00  2  9 

00127 

0  60  |  4  ft 

LUA 

C  W2 

LOAD  SECOND  CONTROL  WORD 

0030 

0(1130 

1 02602 

OTA 

2 

0031 

00131 

102702 

STC 

2 

PREPARE  FOR  THIRD  CONTROL 

WORD 

0032 

00132 

060 1 47 

LUA 

CD  3 

LOAD  THIRD  CONTROL  WORD 

0013 

00133 

1  02f>02 

OTA 

003  4 

Oil  134 

060 1 54 

LIM 

read 

TELL  MAG  TAPE  UNIT  TO  READ 

CHARAC 

013  5 

00133 

10361 1 

OTA 

1  IH.C 

START  MAG  TAPE  UNIT 

003ft 

00  1  3ft 

1  03  706 

SfC 

ft#  c 

START  DMA  CHANNEL  1 

0037 

00137 

1025.11 

STAY  L I A 

1 

LOAD  ADDRESS 

003ft 

00 1  4) 

002020 

SSA 

CHECK  FOR  RETURN 

003  9 

0OI4  1 

024106 

.VIP 

start 

00  n  0 

10142 

0401 33 

ADA 

BE  (IN 

O')  4  1 

001  43 

1 64000 

LUH 

0#  I 

0)42 

00  1  44 

024137 

■  Ml* 

STAY 

KEEP  IN  LOOP 

0O43 

0  0  1  4  3 

1 600 | 0 

CWI  OCT 

1 60010 

CONTROL  WORD  #1 

014  4  9 

s-:  r 

CONTROL  1' IT  ON  I/O  CHANNEL 

IW  4  3  » 

use 

riYTE  MODE  OF  UNPACKING  DATA 

0"l4i>* 

OLE 

»■<  OON  I 

ML  HIT  IN 

/{)  CHANNEL  AT  END  DATA  IRAN  SEER 

0.14  7 

0,11  4ft 

1 04000 

CW2  OCT 

104000 

CONTROL  WORD  »2 

1>  1 4 1\  * 

INI’ 

Jl  DATo 

INTO  LOCATION  4100  OCTAL 

0049 

00147 

1 70400 

CWJ  001 

-  /  400 

EACH  Re. CORO  IS  7  400  OCTAL 

IN  LEND 

(1030 

001  30 

1 70303 

COUNT  0C1 

-7300 

••  It r}«  It  11760* - - - 

0)31 

0.1I3I 

00  1,100 

fEMI'  OCT 

0 

0132 

Oil  1  30 

1 .1:3)1  1  i 

E  ILL  OCT 

103377 

003  3 

.10133 

0040.10 

HKi.N  OCT 

40.1.1 

013  4 

ill)  1  ‘>4 

000.13  3 

HEAD  UC 1 

33 

magnetic  tape  command  To  read  cha 

0.13*1 

001  33 

.100000 

SAVE  DC  1 

0 

1. 1  3  ft 

.10030 

Oft  ft 

30.  IH 

S  I  Aft  T  AT  NEW  ORGIN 

.'XI 3  1 

.10  1 .  HI 

Oft  l.'l  3 

l.  Dm 

i-  an 

L'ImI)  COMMAND  TO  FORWARD  SPACF 

.XlSft 

000.11 

10361 1 

01 A 

1  IH.C 

OUTPUT  COMMAND 

Figure  B-8. 

DIAG2  Program 
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00  5  9 

00202 

102311 

SFS 

1  IB 

00  60 

00203 

024202 

JMP 

*-l 

0061  * 

CHECK  TO 

SEE 

IF  END  OF  1 

00  62 

00204 

10251 1 

LIA 

1  IB 

00  6  3 

00205 

01021 6 

AND 

MSK 

0064 

00206 

002002 

SZA 

00  6  5 

00207 

024212 

JMP 

AA 

00  6  6 

00210 

002400 

CLA 

00  6  7 

0021  1 

024213 

JMP 

*+2 

00  68 

00212 

003400 

AA 

CCA 

00  6  9 

00213 

102000 

HLT 

0070 

00214 

024200 

JMP 

200B 

0071 

002  IS 

000003 

FWD 

OCT 

3 

00  7  2 

00216 

000200 

MSK 

OCT 

200 

0073 

END 

**  NO  ERRORS* 

WAIT  FOR  MAG  TAPE  OPERATION 


CLEAR  A  FOR  INDICATOR 
SET  A  FOR  EOF  MARK 


rnmur  gtt**0  £•»■>*" D 

3ir  V”  /*  <rr  "M** 


Figure  B-8.  DIAG2  Program  (continued) 
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0001  asms. b»  l»  a. c 

0002* 

0003*****  SUM  NUMBERS  FROM  CHANNEL  I4--IJSE  TO  SET  OFFSET  VOLTAGE. 
0004* 

000S 
000  A 
000  7 
0008 
0009 
0010 
001  1 
0012 
001  3 
001  4 
001  5 
001  6 
001  7 
001  8 
001  9* 

0020*****  SAVE  LARGEST  VALUE  FOR  PEAK  DETERMINATION. 

0021  * 


0022 

07100 

ORG 

7I0OB 

002  3 

07100 

102055 

HLT 

55H 

0024 

07101 

10231 4 

GO  1 

SFS 

1  4B 

0025 

07102 

027101 

JMP 

*-l 

0026 

07103 

10751 4 

LIB 

I  4B.C 

0027 

07104 

000040 

CLE 

0028 

07105 

005623 

ELP. 

RBR 

002  9 

07106 

077125 

STB 

HOLD 

0030 

07107 

007004 

CMB  . 

INB 

0031 

07110 

047126 

ADB 

LARGE 

0032 

0711  1 

006021 

SSB* 

RSS 

003  3 

071  12 

027116 

JMP 

G03 

003  4 

07113 

067125 

LU8 

HOLD 

0035 

07114 

077126 

ST8 

LARGE 

0036 

07115 

374000 

STB 

0 

0037 

07116 

106501 

GO  3 

LIB 

1 

0038 

07117 

006021 

SSB. 

RSS 

0U39 

07120 

027101 

JMP 

GO’ 

0040 

07121 

406400 

CLB 

0041 

07122 

077126 

STB 

LARGE 

00  42 

07123 

074400 

STB 

0 

00  4  3 

07124 

027101 

JMP 

G01 

0344 

07125 

000000 

HOLD 

OCT  4 

0045 

07126 

000400 

LARGE 

OCT 

0 

00  4  6 

END 

**  NO  ERRORS* 


07000 

07000  102077 
07001  102314  G02 

07002  027001 
07003  107514 
07004  000040 
07005  005623 
07006  002041 
07007  007004 
07010  040001 
07011  106501 
07012  006020 
07013  002400 
0701/  027001 


ORG  7000B 
HLT  77B 

SFS  14B  WAIT 

JMP  *-l 
LIB  I  4B.C 
CLE 

ELB.RBR 
SE7.RSS 
CMR. INB 
ADA  1 
LIB  I 

ssa 

CLA 

JMP  G02 


FOR  FLAG  FROM  A/D. 


Figure  B-9,  DIAG3  Program 
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The  doctoral  dissertations  have  been  written  using  Themis  sferic 
data.  The  first  paper  derived  a  theory  of  computer  learning  in 
which  the  teacher  is  considered  to  be  both  perfect  and  another, 
more  general  case,  where  the  teacher  is  imperfect.  The  second 
paper  derived  a  theoretical  computer  model  for  describing  various 
lightning  stipes.  The  third  paper  describes  the  spectral  power 
density  content  of  the  sampled  sferics. 

Sferic  stroke  rate  is  shown  to  strongly  correlate  with  the  rate 
of  growth  of  a  convective  cell 
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